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I. INTRODUCTION 


Ап interesting analogy can be drawn between the industrial revolution of the 
18th century and the "information revolution" of today. In much the same manner 
as the industrial revolution attempted to replace muscle with machines to increase 
worker productivity, todays information revolution uses the strength of computers 
to enhance worker productivity. 

The need to be better able to manage information in todays business settings 
cannot be understated. There exists an ever increasing demand to administer large 
quantities of data for a wide variety of commercial, governmental and 
administrative purposes. It has been estimated that the typical executive spends 80 
percent of his time in the processing and communication of information [ Ret. 1:p. 
4]. Any technology which would allow him to accomplish these tasks faster, and 
with fewer revisions would certainly be beneficial. 

Computers have become an integral part of an organization's information 
processing scheme for two important reasons. The first reason is due simply to the 
sheer volume of data with which an executive must contend. The second reason is 
due to the advances in computer technology. The past several years have seen 
quantum leaps in microcomputer and storage technologies. This fact has caused the 
cost of obtaining these technologies to plummet. The capabilities of just a few short 
years ago, which were found only in expensive mainframe computers, are now 
available to virtually any business concern. 

As the information processing needs of businesses became more complex, and 
the business environment became more competitive, the view of data as a valuable 


resource began to emerge. This view of data as a resource gave rise to various 


strategies for the management of information resources. The need for database in 
the management of information was obvious. Data was simply the raw material 
for producing items of information. In order to be available for retrieval, 
processing and use, the data had to be managed by some sort of Database 
Management System. 

Database Management Systems were initially developed in the late 1960's for 
mainframe computers. Their main function was to collect, store, organize and 
output a collection of related data. They sought to avoid data duplication, facilitate 
coordination and maintain the integrity of the data. With the advent of the 
microcomputer and Winchester disk technology, the concept of a Database 
Management System could easily be implemented in many more settings. The 
purpose of this thesis was to explore various design and implementation strategies 


for a Database Management System in the microcomputer environment. 


A. BACKGROUND 

The Operations Division, Plans, Policies, and Operations Department, 
Headquarters Marine Corps, requested that a student at the Naval Postgraduate 
School investigate the possibilitv of designing and implementing a Database 
Management Svstem to support information processing needs within the 
Operations Division. Two primary areas of concern were the maintenance of ` 
crime statistics for the Marine Corps and the management of the Physical Security 
Waiver and Exception Program. Both programs involve the tracking of requests, 
filing of reports, and responding to ad hoc queries. Initially the system was 
entirely manual. Clerks sifted through reams of documents in order to respond to 
ad hoc queries. The production of monthly and annual reports required a great 


deal of clerical support and response time to requests for information was 


excessive. This research was conducted in order to recommend and implement a 
Database Management System which would meet the current and future needs of 
the Operations Division. 

1. Objective 

The objective of this thesis was to provide a system which was tailored to 

the needs of the Military Police Section of the Plans, Policies and Operations 
Department of Headquarters Marine Corps. The system should decrease the man 
hours required to implement the Crime Statistics Reporting Program and allow the 
Military Police Section to respond to ad hoc queries in a timely and efficient 
manner. In so far as possible the system was designed to be maintainable, reliable 
and adaptable. 

2. Research Questions 


The research questions were: 


(1) What is an appropriate database management system to recommend for use 
at a location which enjoys limited hardware and clerical support? 


(2) Which database implementation best satisfies the user's needs in accordance 
with specified data manipulation requirements? 


(3) Is the current information generated by the system adequate? Are ad-hoc 
requests adequately supported? 


(4) What will be the retrieval, update, and security requirements of the Database 
Management System? 


(5) How can we assure ease of use? 
3. Scope 
The Military Police section is charged with administering a wide range of 
programs which encompass many different reporting requirements. The 


production of the annual Crime Statistics Report, the administration of the Physical 


Security Waiver and Exception Program and the Dependent Child Identification 
Program are just a few of the programs which are administered by the Military 
Police section. 

Although all of the programs could be enhanced by some form of 
automated update and retrieval system, the emphasis of this research was on 
developing a system which would automate the Crime Statistics Reporting 
requirements. The focus was on this program because it was, by far, the largest 
program in terms of reporting requirements, and it could be used to establish the 
foundation for a system which could be expanded to incorporate other programs. 

The cost of research and implementation of a Database Management 
System for the Military Police Section is not expected to exceed $2,000.00. This 
sum includes travel expenses to Washington D. C. , the purchase of an application 
program and the necessary hardware. 

4. Methodology 

The conceptual foundation within which the questions will be examined is 
that of the structured design methodologies. A thorough literary study of the 
methodologies as proposed by Yourdon, Constantine, Page-Jones et al was 
conducted. Emphasis was placed on a life cycle approach to systems design, 
software planning, requirements, analysis and structured coding. To this end, a 
thorough analysis of the existing system was undertaken. After relevant 
specifications such as costs, benefits, schedules, and performance requirements 
were established, structured design begun. Data Flow Diagrams, Data 
Dictionaries, Structure Charts etc. were utilized in the design phase. Once the 
design was completed, a prototype of the project was coded. The prototype was 


intended to be a shell of the complete project which allowed the user to interact 


with the proposed system. Various screens were presented (о the user in an effort 
to ensure design requirements and to identify potential problems. After the 
prototype had been verified, the coding began. This structured implementation was 
done with emphasis on documentation and maintenance considerations. 

5. Summary of Findings 

The automation of the Marine Corps Crime Statistics Reporting Program 
had an impact in two distinct areas. The first of which was the timeliness and 
accuracy of the reporting requirements and the second dealt with the nature of the 
data which was collected to generate the Annual Crime Statistics Report. 

Because the crime statistics for individual installations are now stored ina 
database, vice a manual filing system, ad hoc queries and normal reports can be 
done more efficiently. Before the database was established, the production of the 
annual Crime Statistics Report was an effort which spanned several weeks. It now 
takes only several minutes to produce the same report, and of course there are no 
arithmetic errors during the computation of the figures. 

The second finding dealt primarily with the nature of the data used to 
generate the annual report. As was discussed during the data modeling section of 
this thesis, a majority of the data collected via NAVMC 1630/1 is not very useful to 
the annual report. As it is presently configured NAVMC 1630/1 collects a good 
deal of information about specific crimes, attributes of those crimes (i.e on base, 
off base, investigated by NIS etc.) and the status of the perpetrator (USMC, NAV Y, 
Civilian, Dependant, etc.). It does not, however, allow us to relate this information 
in a truly meaningful way. Noris this information (crime attributes and status of 
perpetrator/victim) necessary to the Annual Report. This finding will be 


elaborated upon in the recommendations section of the thesis. 


II. STRUCTURED ANALYSIS 


The process of developing a system can be seen as comprising seven different 
phases: problem definition, feasibility study, analysis, system design, detailed 
design, implementation and maintenance. Although presented in a linear fashion, it 
should be remembered that there will be a good deal of interaction and feedback 
between the phases of the System Life Cycle. As the system evolves from 
conceptualization to implementation, each one of the phases of the System Life 
Cycle will have been visited. When a structured approach is used, the systems 
analyst must progress from step to step in a careful, methodical fashion, completing 
a number of well defined exit criteria for each step [Ref. 2:p. 9]. 

The primary objective of the analysis phase 1s to study the problem prior to 
taking action. The focal point of analysis in the very early stages is problem 
definition. That this is the starting point of the system life cycle would seem to be 
common sense but as Davis noted ..."although the need for problem definition may 
seem obvious, this is perhaps the most frequently bypassed step in the entire 


systems analysis and design process." [Ref. 2:p. 9] 


A. PROBLEM DEFINITION 

The problem definition begins to take form with the realization by the user that 
the present way of doing business does not adequately meet his needs. This could be 
due to a host of factors such as the expense of the current system, the ability of the 
system to respond to ad-hoc queries and the level of skill required to use the system 
etc. In the case of the Military Police Section of the Operations Division of 


Headquarters Marine Corps, the problem was to provide the Military Police 


Section with a system which would efficiently compile, update and retrieve crime 
statistics as well as information on their Waiver and Exception program. The 
system, as it was initially configured, was entirely manual. A small clerical staff 
was responsible for the consolidation of monthly reports received from installation 
Provost Marshal Offices throughout the Marine Corps. The information from 
some 60 reports per month was used to generate an annual crime statistics report as 
well as respond to ad hoc queries requested throughout the reporting period. The 
annual report required that the data be presented in many different views. Indices 
were required for data attributes such as violent crimes, crimes against property, 
crime rate by base, and percentage change between reporting periods to name a few 
examples. The costs of generating this report, in terms of clerical support and 
time, were becoming exorbitant. The Military Police Section did not possess 
sufficient resources to produce this report in an efficient manner. As Meilir Page- 
Jones observed, "Typically, the user is concerned less about the way in which he's 
doing business than about the physical deficiencies of the system that he uses to do 
и." [Ref. 3:p. 23] This certainly was the situation found in the Military Police 
Section. 

Based on interviews with the Marines in the Military Police Section we were 
able to gain an appreciation of the problem faced by them. Our understanding of 
the problem was formalized in the problem definition phase of the Life Cycle 
Model. The intent of the formal problem definition was to define the scope and 
objectives of the proposed system. The Statement of Scope and Objectives served 


three important purposes: 


(1) It assured that the analyst and the user viewed the problem in the same light. 


(2) It gave the user a gross estimate of project costs 


(3) It ensured that the analyst and the user agreed upon the general direction of 


the project. 


The statement of Scope and Objectives as presented to the user is shown in 


Figures am 


As noted by Davis, "The function of the Statement of Scope and Objectives 15 


communication, it is a formal way of saying here is what I think you want. [Ret. 


3:p. 24] The Statement of Scope and Objectives thus served as a tool which 


allowed the analyst and the users in the Military Police section to clear up any 


misunderstandings while the project was still in its infancy. After all of the parties 


had agreed that the Statement of Scope and Objectives accurately reflected their 


understanding of the problem, the next phase of the System Life Cycle had begun. 


STATEMENT OF SCOPE AND OBJECTIVES 


THE PROJECT 
THE PROBLEM 


PROJECT OBJECTIVES 


PROJECT PE 


PRELIMINARY IDEA 


IHE FEASIBILITY STUDY 


Crime Statistics Reporting Program 


The Military Police Section is not able to 
adequately respond to ad hoc queries vis a 
vis their Crime Statistics and Exception 
Programs 


To reduce the amount of time required to 
process monthly reports. To allow for statistical 
analysis of the data. To reduce the time and 
effort required necessary to respond to ad hoc 
queries. 


The development costs of this project should 
not exceed $2,000. 


One possible solution would be to generate a 
database system on existing hardware 


In order to more fully justify the potential of this 
project, a feasibility study lasting approximately 
three weeks is suggested. The cost of this study 
should not exceed $500.00 





Figure 2.1 Statement of Scope and Objectives 


B. THE FEASIBILITY STUDY 

According to Davis, "A feasibility study is a high level capsule version of the 
entire systems analysis and design process. The objective is to determine quickly 
and at minimum cost if the problem can be solved." [Ref. 2:p. 30] The feasibility 
study utilizes the exit criteria of the problem definition phase of the System Life 
Cycle as input. In the feasibility study the problem definition is refined and the 
scope and objectives are clarified. The purpose of the feasibility study is to 
determine if the problem is worth solving. In order to assess whether a problem is 


worth solving, three separate facets of feasibility must be addressed: 


(1) Technical: Can the system be implemented using current technology 
(2) Economical: Do the benefits outweigh the costs? 
(3) Operational: Can the system be implemented in this 


organization? [Ref. 2:p 274] 

The first task of the analyst during the feasibility study was to attempt to 
understand the existing system. The existing system served as an important source 
of information. It gave an indication as to what basic functions needed to be 
incorporated into any new system as well as highlight those problems which we 
wished to avoid. It also served to bound the scope of the project. Obviously if the 
benefits realized by the new system did not outweigh the costs incurred, the new 
system would not be implemented. 

In order to properly analyze and understand the existing system, the analyst 
had to learn the specifics of the Marine Corps Crime Statistics Reporting Program. 
Several sources of information were consulted. Marine Corps installations are 
primarily guided in their crime prevention programs by Marine Corps Order 


1600.16a. Local orders, desk top procedures and standard operating procedures 


are examples of other types of internal documentation which were consulted. The 
crime statistics reports which were produced in previous years also provided an 
insight to the systems functioning and requirements. The most valuable 
information however, was that which was gleaned from interviews with key people 
in the Military Police section. The functioning of the "informal system" was 
studied by interviewing personnel within the Military Police section as well as 
tracking the flow of work in the organization. This process is graphically 
illustrated in Figure 2.2. As can be seen from the illustration, the system was 
entirely manual. Twenty separate Provost Marshall Offices forwarded three 
monthl y reports to the Military Police Section. The reports were filed by the 
personnel within the section. Whenever an ad hoc request was received by the 
Military Police Section, the requested information was retrieved from the files, 
compiled into a report format and then sent to the requestor. This process was 
tedious as well as time consuming. As an example, it was estimated that a simple 
query such as "How many homicides involving United States Marine Corps 
personnel were recorded in 1986?" involved viewing and tabulating 240 separate 
reports. The response time for this query was typically a week or more. 

After numerous conversations and exchanges of correspondence with the Non- 
Commissioned Officer in charge, two primary areas of concern were noted. These 
were the maintenance of crime statistics for the Marine Corps and the inability of 
the Military Police Section to respond to ad hoc requests in a timely manner. It was 
felt that an automated system of update and retrieval would greatly enhance the 
services which the Military Police Section could provide to requesting 
organizations. In addition, a larger database could be more effectively manipulated 


such that historical trends could be analyzed. This information could be used to 
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assist commanders who identify crime trends and implement crime prevention 
measures that address the specific criminal activity in his area. Because the system 
was entirely manual, the production of ad hoc or annual reports required a great 
deal of time and clerical support. Any attempt at an historical analysis of the 


accumulated data was virtually intractable. 


FILING COMPILE 
PROCESS REPORTS 





Figure 2.2 System Flow Chart 
The feasibility study addressed three possible solutions to the problem as 


addressed in the Statement of Scope and Objectives: 


(1) Get more clerical support 


(2) Generate a database and implement a Database Management System on 
existing microcomputers 


(3) Establish a link to the mainframe located at Marine Corps Base, Quantico, 
Virginia 
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The first proposal was not considered feasible due to the fact that the staffing 
requirements as set forth by Headquarters, Marine Corps, showed this unit to be at 
full strength. 

The second option had no real drawbacks. It was certainly economically 
feasible (the hardware had already been bought ), technically feasible and it was 
politically desirable (the Officer in Charge did not want to depend on anyone for 
the operation of his eventual system). 

The third option was discussed at some length but it was felt that the cost of 
linking to the mainframe, training the clerks, and getting support from the data 
center at Quantico (definitely a political consideration) was not feasible. 

The feasibility study also addressed the selection and acquisition of a potential 
Database Management System. The criteria which would be used to make this 
choice included economic and political feasibilities as well as administrative and 
technical criteria as proposed by Everest in his book, "Database Management" [Ref. 


4:p 687]. The major points which would have to be considered were: 


(1) Technical Criteria 
database definition 
generalized retrieval capabilities 
generalized update capabilities 
programmer interface 
database integrity 
modes of operation 


database evolvability 


(2) Administrative Criteria 
product stability 


maintenance support 
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documentation 
supporting environment 


costs 


Armed with the information which was gathered through a combination of 
interviews and reading applicable Marine Corps Orders, we were able to generate a 
representation of the physical system. The functioning of the Crime Statistics 
Reporting System as it existed in the Military Police Section is represented in the 
system flow chart of Figure 2.2. The systems flow chart is an excellent way to 
graphically portray the way the system functions. Data Flow Diagrams can be used 


to show the flow of data through the functions of the system. 


C. ANALYSIS 

The most obvious aspect of the system flow chart is that there are no automated 
representations. There is nothing indicating on-line storage, video display 
terminals or automated I/O. The system is entirely manual. 

As was previously noted in the feasibility study, this system flow chart was used 
to gain an insight into how the Military Police Section produced any required 
reports. It is an excellent way to graphically portray the way the system functions 
in a physical, high level diagram. It does not, however, give us an insight into those 
functions which are essential to the Military Police Section. 

1. Data Flow Diagrams 

A fundamental tenant of Structured Analysis is that Data Flow Diagrams 
... be used to sweep aside as many irrelevancies as possible in how a user currently 
happens to do his business and uncover the logical functions essential to the way in 


which he has to do business." [Ref. 3:p. 70] 
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The Data Flow Diagrams represent а logical view of the system which 1s 
removed from any implementation considerations. As explained by DeMarco: 
The building blocks of a Data Flow Diagram are sources, 
destinations, processes, data stores and data flows. A leveled set of 
Data Flow Diagrams is made up of a top, a bottom, and a middle. The 
top is a single diagram called the context diagram. The bottom 


consists of a set of partitioned bubbles, called functional primitives, 
the middle is everything else. [Ref. 5:p. 75] 


Data Flows are represented by arrows indicating which way data is flowing in 
our system. The label of the data flow is written alongside the arrow. All data 
names that are shown on the Data Flow Diagram are organized in a collection of 
logical definitions called a Data Dictionary. 

Data sources are simply the place where the data item originated. They are 
represented by boxes on the Data Flow Diagram with data flows originating from 
them. 

Data destinations are the places where the data is flowing toward. They are 
often referred to as data sinks but in any case they represent a receiver of data flows 
from the system. Note that a single box could represent both a source and a sink. 

The different processes found in our system are represented as bubbles on the 
Data Flow Diagrams. DeMarco explains their purpose thusly: 

Processes are represented as bubbles on the Data Flow Diagram. 
A process is some action which serves to transform the data. This 
transformation can occur in either of two ways. Processes can 
transform the structure of the data, for example by reformatting it or 


they can transform the information contained in the data, for example 
changing a regular price to a trade-discount price [Ref. 3:p. 61]. 
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Data stores are repositories of data. They are files in the sense that they hold 
information, but it is important to note that data sources do not represent any 
physical storage medium such as disk or tape. They are the logical place where data 
is stored in the system. Data stores are represented by a pair of parallel lines on the 
Data Flow Diagram. 

To help us fully understand the various components which appear on the Data 
Flow Diagram, two more tools of Structured Analysis will be introduced. They are 
the Data Dictionary and the Minispec. 

2. Data Dictionary 

Once again we cite DeMarco for an explanation of another of the tools of 
structured design: 

The Data Dictionary contains definitions of all data mentioned in 
the Data Flow Diagram, in a process specification, or in the Data 
Dictionary itself. Composite data, (data that can be further divided) 
is defined in terms of its components; elementary data (data which 
cannot be divided) is defined in terms of the meaning of each of the 
values that it can assume. Thus the Data Dictionary is composed of 


definitions of data flows, data files, data used within processes and 
elementary parts of the above. [Ref. 3:p. 75] 


An entry from our Data Dictionary, which is found in Appendix B, would 
look like this: 


NAVMC 11007 = INSTALLATION NAME + INSTALLATION 
POPULATION + PERIOD + DUI ON BASE + DUI 
OFF BASE + DWI ON BASE + DWI OFF BASE 


In other words, the data flow called NAVMC 11007 consists precisely of 


the items Installation Name, Installation Population, Period, DUI on base, DUI off 
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base DWI on base, DWI off base, concatenated together. All of these items must be 
present, and they must be in this order. No other data flow could pass as NAVMC 
11007, even though the name might be applicable. Each element of the definition 
will also be rigorously described in elemental terms. For instance, Period was a 
component of the NAVMC 11007 definition which can be further partitioned into 


more fundamental elements: 
Period = year + month 


This top-down partitioning of our data will be done to every component 
shown on our Data Flow Diagram and for all subordinates used to define them. 
This partitioning will help to ensure that the data is used consistently and without 
ambiguity. 

3. Minispecs 

The method that we use to describe the data transformations, which occur 
in the lowest level bubbles of our Data Flow Diagram, is a structured English 
specification. This type of process description is also called a Minispec. The intent 
is to provide a very concise, rigidly structured statement of what it takes to do the 
data transformation. The minispecs use a ..."pruned down version of English 
embedded in the simple constructs of Structured Programming." [Ref. 3:p. 80] An 
example of a minispec written in structured English follows. The number 1.0 
relates the minispec to the bubble that it functionally describes. 

Process 1.0 

FOR NAVPERS 1630/1 DO 

FOR NAVMC 11007 DO 
FOR NAVMC 11007 ADDENDUM DO 
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DO WHILE NOT EOF INSTALLATION FILE 
LOCATE EACH INSTALLATION 


UPDATE CRIME STATISTICS 
ENDDO WHILE NOT EOF 
ENDDO 
ENDDO 
ENDDO 


4. Context Diagram 

The Context Diagram identifies the scope of analysis and specifies the 
systems inputs and outputs [Ref. 3:p. 67]. It is used to represent the system as a 
single logical process and serves to identify the sources and destinations of data. As 
such, it represents the highest possible view of the system. 

Figure 2.3 is the Context Diagram of the Marine Corps Crime Statistics 
Reporting system. It is used to show the system in context to the environment in 
which it operates. 

The Context Diagram is used primarily as a communication tool allowing 
verification of the data sources and destinations. As illustrated in Figure 2.3 the 
"source" of data is the various Marine Corps installations throughout the world. 
The data, as represented by NAVMC 11007, NAVMC 11007 Addendum and 
NAVPEPS 1630/1 are transformed by the Crime Statistics Reporting process. The 
ultimate destination of the now transformed data, the Annual Crime Statistics 
Report for example, is shown to be Headquarters, United States Marine Corps as 
well as the reporting installations of the Marine Corps. 

Figure 2.3 highlights the high level functioning of the Crime Statistics 


Reporting Program. However, in order to fully understand the system, this 
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process must be decomposed into its functional parts. Referring back to the 
discussion in the Problem Definition, we were able to identify two constituent 
processes of the Crime Statistics Reporting process. They were: Update Files and 
Generate Reports. These two processes represent the basic functions that must be 
performed by the system. They are the bubbles which represent the lower level 


components of the context diagram bubble. 
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Figure 2.3 Context Diagram 
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After just a few decompositions our Data Flow Diagram becomes too 
large to fit on a single page. In order to keep the diagram meaningful DeMarco 
makes the following recommendation: 

When a system is too large for its Data Flow Diagram to be shown 
on a single page, we ought to do an initial partitioning into 
subsystems. If the subsystems are still too large, we will divide them 
into subsystems. And so on. Eventually we will end up with 


components that can be portrayed with simple Data Flow Diagrams 
of primitive functions. [Ref. 5:p. 72] 


DeMarco recommends that we continue this leveling or partitioning of 
our system until the operation of a bubble can be described in about a page 
[Ref. 3:p. 66]. 

Figure 2.4 represents the first functional partitioning. It demonstrates 
how this leveling process works to clarify the functioning of the system. The 
context level process was decomposed into four sub processes, Security, labeled 
1.0, Log-In, labeled 2.0, Update Files labeled 3.0, and Generate Specified Report, 
labeled 4.0. The dashed line around bubbles 1.0 and 2.0 represents bubble 0 and is 
intended only to clarify this leveling concept. 

Note that the level one Data Flow Diagram shown in Figure 2.4 contains 
the same net inputs and outputs as does the Context Diagram. This fact 
demonstrates that the level one Data Flow Diagram is just a more detailed 
representation of the Context Diagram. Note also that the level one Data Flow 
Diagram shows several "new" data flows and four "new" files. These were not 
really new but rather existed as details of the Context Diagram that were not shown 
at that level. Now that the details of the Context Diagram have been exposed in the 


level one Data Flow Diagram, each component of the level one Data Flow Diagram 
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can be examined and further decomposed into its own constituent bubbles 
(processes) if necessary. This decomposition allows validation of the upper layers 


by producing and matching of the lower layers. 
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Figure 2.4 Level One Data Flow Diagram 
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5. Level One Data Flow Diagram 

What follows is a walk through of Figure 2.4 and the rest of the leveled 
Data Flow Diagram set, conducted along the analysis phase walk through for the 
user. We begin with a quick overview of the top level before turning to the specific 
details. 

The data flows which enter the system are represented by NAVMC 
11007, NAVMC 1107 Addendum and NAVPERS 1630/1, all of which originate 
with the various Marine Corps installations. The data flow labeled "Log-in Info" 
originates with the user of the system. Itis composed of a password, as well as the 
user's name, rank and unit. 

The first process shown on the level one Data Flow Diagram is the 
security function labeled 1.0. The purpose of this function is to allow only those 
individuals who have the proper authorization to access the system. If an 
authorized user enters the correct password, he is allowed access to the other 
processes of the system. If an incorrect password is offered more than three times, 
the system will shut down preventing any operations on the system. Because its 
functioning can be described in about one page, the security process can be 
considered to be a functional primitive. [Ref. 5:p. 72] As such, a minispec was 
prepared for it and can be found in Appendix B. 

The next process found on the level one Data Flow Diagram is "Log-In", 
process 2.0. After the user has successfully logged onto the system the Log-In 
process will take the information which is contained in the Log-In Info data flow 
and combine it with the date /time of access. It will also record the operations 
performed by the system (i.e.,update, delete, edit, reports). This information 15 


written to the file labeled “Access Info". The process provides an audit trail of 
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accesses to the system. This process represents a functional primitive and its 
minispec can be found in Appendix B. 

The third process shown on the level one data flow diagram is process 3.0, 
labeled Update files. The purpose of this process is to receive incoming 
information, alter the information into the form of data labeled "Crime 
Information" and store it in the appropriate Crime file. Update files also provides 
the user with the capability of editing existing crime information as well as deletes 
redundant or erroneous information. The functioning of Update files can best be 
understood by further decomposition of the process into sub-processes. This 
decomposition will be presented later in the level two Data Flow Diagrams 

The fourth process which is depicted on the level one Data Flow Diagram 
is titled "Generate Reports". As seen in Figure 2.4, this process retrieves necessary 
information from the Crime Files and the Archive Reports file. It then uses this 
information to produce the desired report. The function of bubble 4.0 is twofold. 
First it must acquire the information which is necessary to produce a specific report 
and second, it must generate that report. In order to highlight the details of this 
process, it will be further decomposed into sub-processes. The results of this 
decomposition will be shown in the level two Data Flow Diagrams. 

6. Level Two Data Flow Diagram 

In Figure 2.5 we see the sub-processes which comprise bubble 3.0. They 
are process 3.1 labeled "GetInfo", process 3.2 labeled "Add Info", process 3.3 
labeled "Edit Info" and process 3.4 labeled "Delete Info". 

Process 3.1, GetInfo, has as its primary purpose the task of gathering 
information which will specify where a new record will be added (i.e.,in which 


specific crime file) or alternatelv which specific report will be edited or deleted. It 
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does this by allowing the user to choose a specific installation from the Installation 
file. Once this is done, the user can indicate a specific crime and date which will be 


used to locate a specific record within the appropriate crime file. 
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Figure 2.5 Level Two Data Flow Diagram 
Add Info, process 3.2, uses the information from GetInfo as discussed 
above. This process will take new information (provided by the NAVMC and 
NAVPERS data flows) reformat it and write this information to the Crime File 


specified by GetInfo. 
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The Edit Info process, bubble 3.3, allows the user to edit erroneous data 
which may be stored in the Crime Files. It uses the information obtained from 
GetInfo. 

The functioning of bubble 3.4, Delete Info, is analogous to that of process 


3.3 with the exception that the specified record, once located, is deleted. 


Crime 
Information 


4.1 4.2 4.3 


Generate 
Crime Ad Hoc Monthly 


Statistics R 
eports 
Report p Reports 


Crime ` 
Statistics 
Report 


Archive Reports КО Monthly 
Report 


Report 
Crime 
Statistics 
Report 





Figure 2.6 Level Two Data Flow Diagram 


| Figure 2.6 shows the sub-processes which comprise bubble 4.0. They are 
process 4.1 labeled "Generate Crime Statistics Report" process 4.2, labeled 
"Generate Ad hoc Report", process 4.3 labeled "Monthly Report" and process 4.4 
labeled "Audit Report". 


In process 4.1 the data flow "Crime Information" is transformed by 
"Generate Crime Statistics Report" (process 4.1) in to a data flow titled "Crime 
Statistics Report’. This process also reads from, as well as writes to, the Archive 
Reports File. 

Process 4.1 extracts information from the Crime File and produces 
yearly totals for each installation. Next it reads the Archive Reports File to obtain 
information about the previous years totals. With these two pieces of information, 
it produces a Crime Statistics Report. Lastly, it will write the current years totals to 
the Archive Reports File to be used as a basis for comparison with future years. 

At this level of detail we can say that process 4.1 probably represents a 
functional primitive. The functioning of process 4.1 is described in the minispec 
found in Appendix B. 

Process 4.2, Generate Ad hoc Report, can use either the data flow "Crime 
Information” or the data flow "Crime Statistics Report", or both, to generate an ad 
hoc report. This process searches the appropriate file (or files) for information 
relative to a specific installation or installations. Once the files have been accessed, 
the appropriate information is extracted and the required report 1s formatted. 
Process 4.2 represents the functioning of the Data Manipulation Language which 


will be a part of the application program used to implement the proposed system. 
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III. PHYSICAL DESIGN 


Once we have completed our logical representation of the proposed system, 
our focus shifts from the "what" of the systems functioning to the "how" of the 
systems functioning. Because of this transition, we usually have to make a number 
of assumptions which simplify the development of our Data Flow Diagram. We do 
not attempt to show how the data is processed or how the data flows between the 
various processes. The Data Flow Diagram does not show error handling routines 
or how the system will deal with exceptional conditions. Neither does it show how 
normal file maintenance procedures (opening and closing files) will be handled. 
The purpose of the Data Flow Diagrams are, according to Davis, ..."to describe 
what happens without worrying about how it happens." [Ref. 2:p. 282] Our Data 
Flow Diagrams and mini specs are used to describe what is necessary for the system 
to function; Structure Charts aid us in describing how the system will function and 


how specifically, it should be implemented. 


A. THE STRUCTURE CHART 

A Structure Chart is used to show the partitioning of the system into modules. 
It graphically portrays the hierarchy into which the modules are arranged and the 
interfaces among modules. Because it is a tool of the logical design process, it does 
not tell anything about the decision structure of the system or the order in which the 
various functions are performed [Ref. 5:p. 314]. The Structure Chart shown in 
Figure 3.1 represents the proposed system in general terms. It is a first draft which 
depicts how the system will be implemented and how the source code will be 


structured. 
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Figure 3.1 Structure Chart 
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Structured Analysis and design methodologies provide two methods by which 
we may derive a Structure Chart from the Data Flow Diagrams. They are 
Transaction Analysis and Transform Analysis. According to DeMarco: 

Transform Analysis applies directly to applications that are 
transforms --that is applications that have clearly identified input 
streams, central processing and output streams. Transaction analysis 
applies to transaction centers, parts of the application characterized 
by sudden parallelism of data flows. Transform and Transaction 
analysis are used to give the Structure Chart it's initial shape. 

[Kel 5:p 515] 

As stated earlier, Figure 3.1 represents a first cut at the proposed system 
design. This Structure Chart will, in all likelihood, have to be altered in order to 
account for any deficiencies in design. These changes may be necessary because of 
chan ges In user requirements as well as data processing considerations such as the 
flow of control information, decision paths and error traps. Again quoting 
DeMarco, "There is no avoiding the fact that some revisions will be required to 
refine the derived structure. In fact, most of your design effort will be spent in this 


refinement effort." (Ref. 5:p. 319) 


B. PROPOSED SOLUTION 

Using the logical design as a guide, we begin to define the svstem in terms of 
processes which are implementation dependent. Aspects of the svstem which are 
nice to have but not necessarv to the svstems functioning and those items which are 
the results of implementation constraints are now addressed. In addition, modules 
which serve to control the flow of program execution will now be incorporated 


into the model. 
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In the Marine Corps Crime Statistics Reporting Program, the logical design 
dictated that program modules would have to be written which would provide 
security to the system, update database files and generate the required reports. 
These logical functions all have to be incorporated into the physical implementation 
of the system. The first step in meeting this requirement is to ensure that every 
functional primitive found on the lowest level Data Flow Diagram of the system is 
also represented on the Structure Chart. The Structure Chart shown in Figure 3.1 
has a separate module for each of the functional primitives developed in the logical 
model. In this fashion, all of the logical requirements of the system will be 
incorporated into the source code. 

Other modules will be developed which will not have their genesis in the 
logical design but will serve to augment functions of the modules found in the 
logical design. These modules are typically those that deal with program control 
issues. On the current Structure Chart there are two such modules, the 
Initialization (Init) module and the Main module. 

The initialization module is an example of a program module which will be 
implementation specific. This module sets the parameters under which the program 
will operate. Considerations such as foreground/background colors, preventing 
inadvertent user initiated program termination, and the number of files and buffers 
available are all aspects of the program operating environment which should be 
initialized for the system. Note that the initialization module is not necessary, per 
se, to the functioning of the Crime Statistics Reporting Program. Because of this it 
did not appear in the logical design represented by the various Data Flow 


Diagrams, but it will be found on the Structure Chart. 
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The Main program is another example of a module whose etiology was in the 
rigor of the structured design methodologies vice logical design requirements. The 
main program module serves as the highest level of control within the program. It 
controls the flow of program execution. Its existence is only implied by the 
leveling of the Data Flow Diagrams but, of course, there are no control functions 
seen in the Data Flow Diagrams. 

In summary, the Structure Chart is a tool which helps to make the transition 
from the logical design to the writing of the code. All of the logical functions found 
in the Data Flow Diagrams will be incorporated into the Structure Chart and hence 
into the source code. Some functions found in the Structure Chart will be the result 
of processes only implied by the Data Flow Diagrams. This means that there is not, 
of necessity, a one to one correspondence between processes in the Data Flow 
Diagram and modules in the Structure Chart. Indeed some processes found in the 
Data Flow Diagrams, Update Files for example, may seem trivial at the high level 
but require a good deal of code, which incorporates many distinct modules, to 


implement the logical requirements. 
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IV. DETAILED DESIGN 


The process of developing a Database Management System has now progressed 
from a purely logical conceptualization of what the system should do to the 
intricacies of detailed design. We are now very much concerned with 


implementation issues which will impact how our logical design will be realized. 


A. DATABASE ADVANTAGES 

As was previously discussed in the problem definition phase of the systems 
development, the problem faced by the Military Police Section centered on the 
collection and dissemination of data obtained from individual Provost Marshall 
Offices located throughout the Marine Corps. The Military Police Section was 
charged with maintaining large amounts of data for analysis. A very high level 
view of this system as developed in the Data Flow Diagrams, indicated that we 
should develop a very large file system which would provide the user with the 
ability to access, manipulate and format vast amounts of data easily and efficiently. 
That is in fact what every Database Management System does--it automates our 
filing cabinet! 

The many advantages of a Database Management System become evident in the 
context of this application. The creation of a Database would facilitate the storage 
and organization of vast amounts of data into a very small amount of space. As 
noted by Kroenke, "Data integration offers several important advantages. First and 
foremost database processing enables more information to be produced from a 
given amount of data." [Ref. 6:p. 3] Another important advantage of database 


processing is the elimination or reduction of data duplication. Additional benefits 
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of a database system according to Kroenke were; better data management, 
program/data independence and representation of record relationships [Ref . 6:p. 
3]. It was felt that the Military Police Section could greatly benefit from the 


advantages of "going database" and the design of a system was begun. 


B. DATA MODELING 
In much the same fashion that we used our Data Flow Diagrams to model the 
functioning of our proposed system, we will now begin to employ database models 
in an effort to describe the structure and processing of our database. As noted by 
Kroenke: 
There are two reasons for studying database models. First, they 
are an important data base design tools. Database models can be used 
for both logical and physical database design--much as flowcharts and 


pseudocode are used for program design. Second, database models 
are used to categorize DBMS products. [Ref. 6:p. 191] 


The process of moving from a logical representation of our database system to 
the physical implementation of that system 1s analogous to the progression from our 
Data Flow Diagrams to our Structure Chart. Kroenke describes a continuum of 
data base models which, on the one end are purely logical representations, and on 
the other end are DBMS specific models. [Ref. 6:p. 191] This continuum is 
reproduced as Figure 4.1 titled "Kroenke's Spectrum". Using this continuum as a 
guide, we will progress from a logical view of our data processing needs to a model 
which describes an implementable form. 

1. Semantic Data Model 

The first model found on Kroenke's spectrum is the Semantic Data Model. 


This model is chiefly concerned with ..."providing a vocabulary for expressing the 
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meaning as well as the structure of the database data." [Ref. 5:p. 193] As such, it is 
concerned primarily with a description of the data and the relationships between 
them. ltis a good vehicle for the designer to use to communicate his design 
intentions to the user. The problem however, is that currently there are no Database 
Management Systems based on the Semantic Data Model. [Ref . 6:p. 194] Because 
this model could not recommend a Database Management System, the design effort 


moved on to the Entity-Relationship model. 
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Figure 4.1 Kroenke's Spectrum 


2. The Entity-Relationship Model 
The Entity-Relationship model is, like the Semantic Data Model, a logical 
database model. However, unlike the Semantic Data Model, the Entity- 
Relationship model incorporates aspects of a physical model as well. The Entity- 
Relationship model uses diagrams to graphically portray the real world situation. 
Entities are the "things" in the real world which we are attempting to model. In the 
case of the Marine Corps Crime Statistics Reporting Program the entities which we 


would like to model are Offenses, Victims, Perpetrators and Installations. Each of 
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these entities is described by a collection of attributes. The attributes are essentially 
adjectives which further describe the entity. 

If two entity sets are associated in some manner, they are said to have a 
relationship between them. In the same way in which entities can have attributes 
which describe them, relations can have attributes which further describe the 
relationship. 

An Entity-Relationship Diagram is a graphic portrayal of the entities and 
the relationship between the entities. There are three distinct types of relationships 
which may be found on an Entity-Relationship Diagram. A single entity which is 
related to one and only one other entity from a different entity set is said to have a 
one to one relationship. A single entity which is associated with more than one 
entity of another entity set 1s said to have a one to many relationship. If multiple 
occurrences of entities are associated with multiple occurrences of entities from 
another entity set, the relationship is said to be many to many. The Entity- 
Relationship Diagram represents a convenient way not only to model all the 
"players" in our database system but it also allows us to model the relationship 
between those players. 

What follows is a discussion of the Entity-Relationship Diagrams that 
were developed to model the enterprise known as the Marine Corps Crime Statistics 
Reporting Program. The methodology which underlies development of an Entity- 
Relationship Diagram was summarized by Davis and Olsen who stated that to 
develop a user data view of the enterprise and the document that view we should: 

1. Start by identifying entity set (entity types) that are significant 


for his or her view of the enterprise. Each entity set is given a name 
and enclosed in a rectangle. 


2. Relationship sets (relationship types) are identified. Each is 
given a name and graphed with a diamond. The entity sets that 
participate in the relation are indicated by connecting with an arc. 
The relationship is specified as 1, M, or N. 


3. The attributes that establish value for the entity set are elicited 
and diagrammed with arcs that connect attribute to sets. 


4. The process continues until all entity sets, relationship sets, 
attributes and value sets have been elicited and diagrammed. The 
diagram is a tool which allows the analyst and user to discuss the data 
model and resolve differences. [Ref. 1:p. 521] 


lastallation 


Figure 4.2 Entity Relationship Diagram 





Figure 4.2 shows the entity sets and the relations between the entity sets 
which comprise the enterprise called the Marine Corps Crime Statistics Program. 
The entity types which are significant for our view of the enterprise are Victims, 
Perpetrators, Offenses and Installations. Between each of the entity sets are the 
relations which are defined by the entity sets under consideration. 

Before any further attempt is made to refine our logical model; one 


critical observation must be made. In the enterprise called the Marine Corps Crime 
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Statistics Reporting Program, the entity sets "Victims" and "Perpetrators" are only 
modeled in the aggregate. The system, as it currently does business, does not relate 
a particular Perpetrator to a specific crime or even to the victim involved. It 
merely tracks numbers for these categories of data. This reflects the way in which 
the user currently does business. Indeed, they are expressly prohibited from 
disseminating information as it relates to specific victims of crimes. While it 
certainly would be beneficial to be able to link a specific perpetrator to a specific 
victim and to be able to record other demographics about these individuals (name, 
age, etc.) these functions are, at present, beyond the scope of the enterprise as it 
currently functions. We will, however, discuss each of these relationships as 
separate and distinct aspects of the model in order to facilitate any future 


enhancements to the model. 


Demographics 
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Figure 4.3 Victims-Offense Relationship 





The relational tables which we will develop later in the thesis, will be 
based on the user view of the enterprise as modeled in Figure 4.2. The dashed line 
around the Offense- Victims-Perpetrator relations serves to illustrate the fact that 


the user is really only concerned with the relationship between Offenses and 
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Installations. The entities, Victims and Perpetrators, are viewed as if they were 
attributes of the Offense. Hopefully, future reporting requirements will allow these 
relationships to be fully utilized as modeled in Figures 4.3 through 4.6 

In Figures 4.3 through 4.6, we have culled out each separate relation set 
from the Entity-Relationship Diagram proper, in order to more fully examine the 
relationships between the entity sets and the values which the attributes of the entity 
set could assume. 

Figure 4.3 examines the relationship between the entity set labeled victims 
and the entity set labeled offense. The first thing to take note of is the fact that there 
exists an obligatory relationship between victims and offenses but a non-obligatory 
relationship between offenses and victims. Simply stated, the entity-relationship 
diagram is telling us that there may be crimes committed in which there are no 
victims (non-obligatory) but the existence of a victim presupposes and requires an 
offense be committed ( obligatory). An example of this concept would be a Driving 
While Intoxicated Offense - there would indeed be an offense committed but there 
would not be a victim involved. The obligatory aspect of a relation is shown 
diagrammatically as a small dot enclosed by a rectangle within the rectangle which 
represents the the entity set (see Figure 4.3). Next, we should take note of the degree 
of the relation. In this particular relationship an offense could have many victims 
and a person could have been the victim of many offenses. This fact establishes the 
relationship between victims and offenses as being "many to many". The degree of 
the relation is indicated by the presence of a small letter above the line which 
connects the entity rectangle to the relationship diamond. A "1" indicates that a one 
to one relationship exists, "M" indicates a many to many relationship between the 


entity sets. The last piece of information which is shown on this Entity-Relationship 
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Diagram relates to the attributes of the entity sets and the values which the attributes 
may assume. The attributes ..."associate a set of values (a value set) with an entity 
set or relationship set and provides an interpretation of the set of values in this 
context." [Ref. 1:p. 519] The attributes of the Victim-Offense relationship are 
shown as ellipses joined by an arc to the entity set which they describe. We see that 
the entity set "victim" has an attribute called status associated with it and the values 


which the attribute "status" may assume are: 


(1) USMC 

(2) NAVY 

(3) Dependent 
(4) Civilian 
(5) Male 

(6) Female 
(7) Caucasian 
(8) Negroid 
(9) Other 


Likewise, the entity set offense has associated with it two distinct 
attributes; classification and demographics. The attribute classification can assume 


the following values: 


(1) Murder 

(2) Rape 

(3) Robbery 

(4) Burglary/Housebreaking 
(5) Larceny/Theft 

(6) Motor Vehicle Theft 

(7) Drug Possession/Sales 
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(8) Alcohol Related Offenses 


The attribute labeled demographics assumes values which are really 
"attributes of an attribute". By this we mean that the attribute value, murder for 
example, can be further described by demographics such as location, who 


investigated the murder, and the rate of occurrence. 


Figure 4.4 Victim-Perpetrator Relationship 





In Figure 4.4, we examine the Victim-Perpetrator relationship and its 
associated attributes. The relationship which exists between these two entity sets 
shares the same characteristics as were discussed in the Victim-Offense relationship. 
First, there is an obligatory relationship between victims and perpetrators but a 
non-obligatory relationship between perpetrators and victims. This is because, as 
we stated earlier, the existence of a victim presupposes and requires a perpetrator of 
a crime for which that person is a victim. The non-obligatory relationship between 
perpetrator and victim follows from the fact that we can have "victimless" crimes. 
Next, we examine the degree of this relationship and note that it too is “many to 
many". Just as an individual can be the victim of many crimes, he could as easily 
have been the victim of many different perpetrators. It follows then, that a 


perpetrator could have had many victims. As we can see from figure 4.4, the 
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attribute which is associated with both of the entity sets 1s status, and the values 
which it may assume are the same as was discussed earlier. 

In Figure 4.5, we examine the Perpetrator-Offense relationship. This 
relationship is unique to our enterprise in that there exists an obligatory relationship 
regardless of the point of view. An obligatory relationship exists between 
perpetrator and offense because obviously enough, to be labeled a perpetrator you 
must have committed some offense. The converse is also true - to have an offense 
committed requires a perpetrator to commit that offense. The degree of this 
relationship is "many to many" - a perpetrator can commit multiple offenses, and a 
single offense could have been committed by multiple perpetrators. The attributes 
which are associated with the entity sets shown in Figure 4.5 are "Status", 
"Classification" and "Demographics". The values which Classification and 


Demographics may assume were delineated in the discussion of figures 4.3 and 4.4. 
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Figure 4.5 Perpetrator-Offense Relationship 


In Figure 4.6, we examine the Offense-Installation Relationship. Once 
again we note that there exists both an obligatory and a non-obligatory relationship 
depending upon the point of view taken. From the Installation perspective, we have 
a non-obligatory relationship - the entity "Installation" can exist without inclusion 


in the relationship. In fact, in this instance this is a logical necessity because if it 


were not so, an Installation with no crimes associated with it would not be reflected 
in the database. The relationship is, however, obligatory from the perspective of 
the Offense entity set. This 1s owing to the fact that the enterprise as it exists (and is 
modeled) is only concerned with those offenses related to some installation. It is 
outside the scope of the enterprise to model the fact that an offense occurred in 
Pokipsi , NY. We next take note of the fact that the "Offense - Installation" 
relationship is of degree many to many. Simply put, the model is telling us that an 
Installation can have multiple occurrences of an offense and conversely, a specific 
type of offense could occur at more than one installation. The attributes which are 
associated with the entity sets found in the Offense-Installation diagram are 
"Classification" and "Installation". The attribute "Classification" and the values 
which the attribute may assume have been delineated in the discussion of Figure 4.3 
The attribute "Name" represents that set of possible values which will describe the 
Installation entity set. The following list shows the names of the twenty distinct 


Installations which are modeled in our Entity-Relationship diagram. 
(1) MCLB ALBANY 
(2) MCLB BARSTOW 
(3) MCAS BEAUFORT 
(4) CAMP BUTLER 
(5) MCAS CHERRY POINT 
(6) MCAS EL TORO 
(7) CAMP ELMORE 
(8) HENDERSON HALL 
(9) MCAS IWAKUNI 
(10) MCAS KANEOHE 
(11) MCB CAMP LEJUENE 
(12) MCRD PARRIS ISLAND 
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(13) MCB CAMP PENDLETON 

(14) MCDEC QUANTICO 

(15) MCRD SAN DEIGO 

(16) MCAS TUSTIN 

(17) MCAGCC TWENTYNINE PALMS 
(18) MCAS YUMA 

(19) CAMP SMITH 

(20) MCAS NEW RIVER 


Now that we have modeled each of the separate relations in our enterprise, 
we can begin to discuss the way these relations fit together. Referring back to 
Figure 4.2, we get a holistic view of our enterprise as modeled 1п one Entity- 
Relationship diagram. In this diagram, we see not only the separate entity 
relationships as discussed in Figures 4.3 through 4.6 but we are now able to see how 
these relations relate to each other. The most important thing to note is the fact that 
the entity set "Installation" is only transitively related to the entity sets Victims and 
Perpetrators. From the perspective of our logical design, there is nothing really 
noteworthy about this fact other than it exists. From an implementation aspect 
however, it could determine the way data stored in our database will be accessed. 
What it implies is that information about victims or perpetrators will probably be 
linked to a compound key consisting of values of attributes from the offense and 
installation entity sets. Whether this is true or not will be determined after the data 
model is further refined. 

The Entity-Relationship model was used as a tool to help define and 
understand the data which will be manipulated by the Marine Corps Crime Statistics 
Reporting Program. Since there are currently no software packages which would 
allow us to implement a Database Management System using the constructs of the 


Entity-Relationship model, we will move along Kroenke's continuum of database 
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models (see Figure 4.1) to the relational Model. This transition is quite natural 
because as Kroenke noted, "Entity-Relationship diagrams can be used to express a 
physical design for relational implementations" [Ref. 1:p. 96]. 

3. The Relational Model 

In 1970, E. F. Codd of IBM presented a paper that has since been 

acknowledged to be a milestone in data systems research. In this paper he proposed 
the Relational Model for data storage. This model represented a totally new concept 
in data storage and database design. There were two driving forces which led to the 
development of this model. The first was the desire to build a system that would 
make data storage ... "independent of any specific user viewpoint, and the second 
was to find a way to define data bases so that they could be treated using formal 


mathematical methods." [Ref. 7: p. 46] 
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Figure 4.6 Offense-Installation Relationship 


The relational model represents data in a two-dimensional table called a 
relation. Within each relation there are rows and columns. The rows of the relation 
are called tuples. The sequence of the tuples is not important, but once it has been 


established, all tuples must appear in that sequence. A record within the data base is 
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data base 15 stored as a tuple. The columns of the relation are termed attributes of 
the relation. Each attribute has a domain of values which it may assume. [Ref. 7:p 
46] 

To illustrate how the model was used, the Entity-Relationship diagrams 
developed earlier were transformed into the tables of the relational model. The 
relational tables which we develop will be the basis for a physical implementation of 
the data structures. Before we attempt this transformation we must take note of 
certain "normalization" rules. These rules serve to ensure that errors which could 
occur as a result of updating, inserting or deleting records stored in this format do 
not occur. 

Before we can properly interpret and use these rules, some normalization 
terminology needs to be presented. A value Y 1s said to be functionally dependent 
on attribute X if the value of X determines Y [Ref. 6:p. 289]. An example would be 
the purchase price of a new automobile. The price of the car (Y) is dependent upon 
the make of the car (X). 

The next item we need to discuss is that of a determinant. A determinant is 
the value of an attribute which causes the functional dependency. In the case of our 
automobile example, the make of the car was the determinant because it determined 
the price paid for the automobile. It should be noted that one (or more) attributes 
can be the determinant of several attributes. In this case, we would see a transitive 
determinacy. Again using our car example, we note that the sales tax paid is 
transitivity dependent on the make of the car. In other words the make of the car 
determined the price, and the price of the automobile determined the sales tax. 


Therefore, the make of the car transitively determined the sales tax. 


One more point must be made. Recall that a key is an attribute which 
uniquely identifies a tuple. As such, the value of the key must be unique, but the 
value of a determinant may or may not be unique. 

Now that we have a grasp of the terminology used in the normalization 
process, we will define the normal forms . 

a. First Normal Form 

Under first normal form all occurrences of a record must contain the 
same number of fields. 

b. Second Normal Form 

Under second normal form a non-key field must provide a fact about 
the key, the whole key and nothing but the key. 

c. Third Normal Form 

A relation is in third normal form if it is in second normal form and 
every non-key attribute is non-transitively dependent on the primary key. 

d. Boyce/Codd Normal Form 

A relation is in Boyce/Codd Normal Form (BCNF) if and only if it is 


in third normal form and every determinant is a candidate key.[Ref . 8:p. 121]. 


The other normalization forms; Fourth, Fifth and Domain Key Normal 
Form are more restrictive forms which govern join and functional dependencies. 

We will attempt to ensure that the relation table which we derive from our 
Entity-Relationship diagram is in Boyce Codd Normal Form. This will help to 
ensure that we eliminate as many duplications as possible as well as to ensure that we 


will suffer no insertion or deletion effects when the database 1s updated. 
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Figure 4.7 Relational Table 

Figure 4.7 represents the relational table which we derived from the 
Entity-Relationship diagram of Figure 4.2. Note that in the First Normal Form all 
we have attempted to do is relate the attributes of the entities in a tabular format. 
We can say that this table is in First Normal Form because all of the tuples have the 
same number of attributes. In other words, there are no "holes" in the table; each 
record has the same number of fields. Since relations in First Normal Form suffer 
modification anomalies, we will continue to refine our relational table. We next 
consider Second Normal Form to help eliminate some of these anomalies. In our 
relational table each tuple is uniquely identified by the compound key Crime-Date. 
Every non-key attribute, designated as F-1 through F-28, (see Figure 4.8 for a 
descriptive summary) provides a fact about the compound key. Therefore, our 
table is also already in second normal form. The other normal forms all address 
anomalies caused by functional dependencies [Ref. 6:p. 289]. 

In our relational table all the non-key attributes are functionally dependent 
on the primary key. Since it is true that the table is already in Second Normal Form, 
the relationship is also in Third Normal Form. In order to be in Boyce/Codd 
normal form our table must satisfy the constraints of third normal form and every 
determinant must also be a candidate key. Since the only determinate is our 


compound key, our relation is also Boyce/Codd normal form. 


It should be noted that the ease with which this table normalizes to 
Boyce/Codd Normal Form is the exception to the rule. Had we needed to normalize 
all the relations as delineated in Figures 4.3 through 4.6, there would have been 


many more tables to consider and a great deal more projections needed to normalize 


to Boyce/Codd Normal Form. 
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Figure 4.8 Descriptive Summary of Data Fields 


C. SOFTWARE REQUIREMENTS 
The process of developing a Database Management System has now progressed 


from a purely logical conceptualization of what the system should do to the 
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intricacies of detailed design. We are now very much concerned with 
implementation issues and how our logical design will be realized. From our 
feasibility study we learned that this Database Management System could be 
implemented in a microcomputer environment. Considerations such as the 
operating system, the type of microcomputer, the storage medium and the software 
package which we would use to develop our system were all implementation issues 
which could not be addressed until a logical definition of the systems functionality 
was established. Armed with this understanding of what the system should do, we 
are now ready to formalize how the system should do it. 

The software industry has seen an explosive growth in the past few years and as 
a result , the number and quality of Database Management Systems commercially 
available has dramatically increased. In fact, one trade publication stated that "1988 
will be a watershed year for Database Management software" and went as far as to 
proclaim this "The year of the Database."! With such a plethora of software 
available to the developer, choosing the right Database package would seem to be an 
almost intractable proposition. These products span the spectrum of power and 
price. Deciding which Database Management System to use to implement the 
Marine Corps Crime Statistics Reporting Program would have to be based on the 
best combination of many different factors. From the perspective of the systems 
developer, I was primarily concerned with obtaining a package which enjoyed 
widespread use, supported the relational model and would allow for portability of 
the data of the Marine Corps Crime Statistics Reporting Program. There are a 


number of features that could be used as a basis for ranking competing software 
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packages. The following were suggested by a study conducted by the Information 


Technology Services of Stanford University: 


(1) functionality - how does the package support data entry, data exchange, report 
writing and programming? 


(2) data types - does the product support floating point, fixed point decimal or 
integer, date, time string, monetary, Boolean and other types? 


(3) reporting - does the product have an easy to use report definition language 
with the ability to generate form letters, columnar reports and reports of an 
arbitrary format? 


(4) data entry capability - does the package require a programming language to 
be able to do form data entry? 


(5) query capabilities - how well does the software do data management tasks 
(1. e., does it support the relational model)? 


(6) documentation - is the product supported by manuals which are well written 
and have many examples? 


(7) reference documentation - is there a complete and concise summary of topics 
and functions? 


(8) interface - can the product exchange data in DIF, BASIC, Fixed ASCII and 
other formats? 


(9) ease of use - how difficult is it to install, configure and learn to use the 
product? 


(10) familiarity - do we have any previous experience with this or a similar 
product? (Ref. 9:pp. 41-49] 

The considerations listed above are focused towards the developer of the 
system. We must also address, however, whether or not this software package will 
allow us to develop a system tailored to the needs of the end user. As noted in the 
Stanford study, selecting the best Database Management system in this context 


means ..."finding the best match between a potential group of software packages and 
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two other factors, the users skill (patience, attitudes and perceptions) and the users 
needs ( the requirements the user is going to expect the software to meet)". 
Der o p 9] 

The typical user of the Marine Corps Crime Statistics Reporting Program will 
be what is characterized as end user or support staff. They would be the individuals 
who typically were responsible for the filing and storage of records in the manual 
system. They would be responsible for the preparation of printed reports and 
clerical activities. As such, we would need a software package which would allow 
the development of a system which is "user friendly". 

Systems designed for this type of user should have characteristics which 
ensure ease-of-use. The Information Technology Services of Stanford University 


suggested the following as a guideline for developing a user friendly system: 


(1) They should be menu-driven, since use may be infrequent and training time 
must be low (since turnover or rotation of responsibilities may be high.) 


(2) They should have on line help and/or documentation, since the user cannot be 
expected to spend an hour or more reading manuals before using the system. 


(3) They should offer good error messages and informational messages, leading 
to quick diagnosis and correction of any error. 


(4) They should have simple technical operation and visual presentation 
involving clear and consistent keyboard and function key use (with keyboard 
or on-screen labels), little or no disk manipulation, and clear layout of 
screens. [Ref. 9:pp. 13-14] 

After surveying many of the Database Management Systems currently 
available, I chose to implement the system in DBase III Plus. This decision was 


made based on all of the criteria discussed, as well as issues such as vender support, 


price and portability. 


The overall concept is to provide a system to the user that is extremely easy to 
use yet still retains a great deal of power and flexibility. DBase III Plus will give us 
the ability to build a menu driven system that will produce custom formatted 


reports yet remain flexible enough to evolve with changing user requirements. 


D. HARDWARE REQUIREMENTS 

Now that we have determined which application tool will be used to implement 
the Marine Corps Crime Statistics Reporting Program, we are ready to discuss the 
hardware requirements. At this juncture we are only concerned with those pieces of 
hardware which are essential. Items which will enhance system performance will 
be addressed later as recommendations. 


The following pieces of hardware are necessary at a minimum: 


(1) An IBM PC, IBM XT, IBM AT or 100% IBM compatible with at least 256 
kilobytes of random access memory. 


(2) A disk operating system, PC-DOS or MS-DOS version 3.0 or later. 
(3) Two 360 kilobyte disk drives. 


(4) A printer of at least 80 column capability. 
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V. DOCUMENTATION 


The source code which will be discussed presently represents the culmination 
of our systems analysis and design exercise. Starting with problem definition, we 
moved through a feasibility study, requirements analysis, logical design phase, 
detailed design phase and finally to an implementation phase. During each phase 
the picture of the what our system would eventually look like was gradually 
brought into focus. In every phase there was some deliverable which served as a 
guide to our implementation. The requirements analysis and logical design phases 
indicated what needed to be done. They provided us with a high level view of the 
system as represented by the Data Flow Diagrams and our first cut Structure Chart. 
The detailed design phase culminated with the relational table. This table served as 
the basis for the physical structure of our files. Finally, the implementation phase 
ended with our system as depicted in Figure 5.1. 

All of the deliverables of our systems design and analysis effort laid the 
foundation for a system which is thoroughly documented. While they represent a 
good start, they do not necessarily guarantee a maintainable system. As noted by 
Pressmen, "Maintainability may be defined qualitatively as the ease with which 
software can be understood, corrected, adapted and/or enhanced." [Ref. 10:р. 34] 
In order to facilitate the understanding of the software developed for the Marine 
Corps Crime Statistics Reporting Program, we augmented the source code with 
additional supporting documentation. 

Appendix A contains the Data Dictionary. This provides the user with a 


convenienent place to look up definitions of terms they may not understand. It will 
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contain definitions for all of the components found on the Data Flow Diagrams as 
well as those found in our database files. 

Appendix B contains the mini specs for the primitive functions found on our 
Data Flow Diagrams. These are plain English statements that delineate what each 
functional primitive does, as well as specify the relationship between the data flows. 

Appendix C contains several diagrams which show how the database files are 
structured. Information such as the lengths of the different fields within each 
record, the type of fields and key fields is shown. 

Appendix D contains "Control Structures" for each of the major modules 
within the program. These are essentially diagrams of the modules which show 
how the levels of logic are imbedded within a given module. Only the major 
control statements, "Do while" loops, "Case statements", "If statements", etc.,are 
shown on these diagrams. Utilizing these diagrams the user can see, condensed on a 
single page, the structure of code that may span several pages. 

Appendix E contains the source code listing. The beginning of each module 
lisüng will show all memory variables used within each module, the calling 
module, the called module, input files and output files. In addition, a brief 
explanation of the purpose of the module is given. 

In addition to the appendices, the last part of this chapter is dedicated to 
explaining the functionality of each of the modules in the program. It is hoped that 
this documentation will enable future users of the system to be better able to 
correct, adapt or enhance the software as the software's environment changes and 


user requirements expand. 
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A. DATABASE STRUCTURE 
The Marine Corps Crime Statistics Reporting Program utilizes 22 different 
database files to function. As was mentioned earlier, twenty of these files are use to 
store the monthly reports for each of the individual Marine Corps installations. 
The Audit database file stores the yearly totals, by installation, which are compiled 
by the program. The Archives database file stores information about the users who 
accessed the system. 
l. Installation Database Files 
All of the installation files share the exact same format. Each consists of 
31 different fixed length fields with one record assuming 94 bytes of storage space. 
The primary key for any record within the database file is a composite of the 
"crime" and "date" fields. The fields labeled F1-F28 correspond to the same 
"fields" on the "Monthly Police Activities Report" (NAVPERS 1630/1). The 
alpha-numeric format is used do designate these fields just as a matter of 
convenience. For the descriptive titles which correspond to the alph-numeric 
designator, see Figure 4.9. The structure of the Installation database files, the 
width of specific fields and the field types are diagrammatically illustrated in 
Appendix C. 
2. Archives Database File 
The Archives Database File is the repository for the annual figures 
generated by the "Compile Annual Report” option found within the program. It's 
structure was defined by the need to report specific crime statistics as well as 
Statistics about entire categories of crime. 
Referring back to the Monthly Police Activities Report (NAVPERS 


1630/1), Figure 5.2, we see that the first column is labeled "Classification of the 
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Offense". Note that the crime of "Homicide" is actually composed of the totals for 
murder and manslaughter. The program accepts murder and manslaughter as 
separate entries but will use memory variables to sum them together. This total 
will be stored in a memory variable labeled "Homicide". The program will do the 
same sort of thing for the other reporting categories. For example, the category 
"Index Crimes" consists of the subcategories Violent Crimes and Crimes Against 
Property’. However, these two subcategories are further divided into the specific 
Offenses of Homicide, Rape, Robbery, Aggravated Assault, Burglary, Larceny and 
Motor Vehicle Theft. f 


Station 

Homicides 

Forceable Rape Violent 

Robbery 

Assault Indextotal 
Burglary 

Larceny Propcrime 

Autotheft 

Narccount 

Sellcount 


Drugtotal 
Dealcount 


Smokecount 


eh DWI Total 


DWI Base 
DU — Boozetotal 
Ul DUI total 


DUI Base 
Y ear 
Population 





Figure 5.3 Archives Database Structure 
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The program will perform the calculations needed to arrive at the totals 
for the various categories of crime and store it to the appropriate field in the 
Archives Database file. 

Figure 5.3 shows the twenty three different crimes tracked by the system. 
This tree like diagram shows which fields are combined to yield the totals for the 
different categories of crime. The major categories reported and the fields which 


store these values within the Archives database file (as indicated in Figure 5.3) are : 


(1) Index Crimes - stored as Indextotal 

(2) Violent Crimes - stored as Violent 

(3) Crimes Against Property - stored as Propcrime 

(4) Drug Offenses - stored as Drugtotal 

(5) Alcohol Related Driving Offenses - stored as Boozetotal 


The structure of the Archives database file, the width of specific fields and 

the field types are delineated in Appendix C. 
3. Access Database File 

Each time a user accesses the system, his name, rank, unit, date and time 
of access, and any menu options chosen will be stored to the Access database file. 
This file will provide the user organization with an audit trail of transactions on the 
system. Each record will consist of six fields which will occupy 53 bytes of total 
storage space. The structure of this database file, the widtn of specific fields and the 


field types are illustrated in Appendix C. 


B. SOURCE CODE SUMMARY 
The Marine Corps Crime Statistics Reporting Program was designed 


specifically to produce the Annual Crime Statistics Report. This report consists of 
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information from twenty Marine Corps Installations pertaining to 26 different 
types of crime. The information is presented in four different report formats with 
each format having a prior year - current year comparison made. In addition, 
totals for each year, percent change between years and crime rate per 1000 
individuals is calculated. Although not specifically required a monthly report 
format was also included. 

Before delving into the functioning of each specific module, an overview of 
how the program functions will be presented. The program has 22 separate 
database files; one for each of the twenty reporting installations, one for the 
Archival database and one for the Access data base. When a user accesses the 
system, he chooses an installation to work with. This choice determines which of 
our data base files will be accessed. From here he can edit information relevant to a 
specific installation. 

In the Reports module the user can specify whether a Monthly Report, an Audit 
Report or an Annual Report is required. If an Audit Report is required the system 
accesses the Audit database file and provides information as to who accessed the 
system and when. If the user wishes to print an Annual Report he simply selects 
that option. The program will access the Archives database file and get all of the 
records pertaining to all of the reporting installations for the current year as well as 
the previous year. This information will be formatted appropriately and output to 
the printer. 

If the user selects "Compile Annual Report", the program will search each 
Installation database file (all twenty) for crime statistics for the year requested. It 
will total all the crimes into the appropriate categories and append this information 


as a new record to the Archival database file. How these functions are implemented 
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specifically and the error traps incorporated into each module will now be 
discussed. 
l. Security Module 

The purpose of the Security module is to allow only authorized users to 
access the Main program. It does this by having the user enter his name, rank, unit 
and password. If after three tries, he fails to enter the correct password, the 
program returns control to the operating system. 

This function is accomplished in the code as follows. (See Module 
Description Summary Page, Appendix D) The first "IF" statement embedded 
within the "Do while" loop checks for a match on the password entered against the 
password which is coded into the program. If the password entered matches that in 
the code, the Main program is called. If the password entered does not match, a 
counter variable (loop) is incremented by one. Next, the value of the counter is 
checked by the second "IF" statement found within the "Do while" loop. If the 
counter is less than 3, the program exits the "If" statement and returns to the "Do 
while right" level. This of course returns us to the first "If" statement and the user 
can now enter his second try at the correct password. If this attempt also fails, the 
loop counter is again incremented. Since its values still checks less than three, the 
"Do while right" level passes control back to the first "IF" statement and the user 
can enter his third try at the correct password. If he again fails to enter the correct 
password, the loop counter is incremented to a value of three. Now the condition 
tested for by the second "IF" statement tests true and the "If loop = 3" statement is 
executed. This causes a message to be presented to the user which tells him that he 
may not access the system. Embedded within the "If" statement is the "Do while 


delay « 50" loop. The purpose of this loop is to suspend program execution so that 
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the message which is presented to the user remains on the screen long enough to be 
read. This simple mechanism is used extensively throughout the program to 
temporarily display error messages as well as other prompts to the user. After the 
program circles through the delay sequence fifty times, the delay loop is exited and 
DBASE III Plus executes the "quit" command. This returns the user back to the 
operating system of the microcomputer. 
2. Main Module 

The function of the Main program is to allow the user to chose an option 
and to set the initial operating environment of the program. This simple program 
consist of a case statement embedded within a "Do while" loop. The "Do while" 
loop is simply an error checking scheme, in that it will cause the program to 
continue to present the main options menu until the user selects a value (1-5) which 
is listed. The case statement will execute the appropriate program based on user 
selection. If a value is entered which is out of a range, the case statement causes an 
error message to appear in a window overlaid on the menu. It then passes control 
to the "Do while" loop and the main menu is presented once again. The manner in 
which the Main program sets the initial operating environment is by making a call 
to the Init.Prg module. 

3. Init Module 

This program simply sets a number of DBASE III Plus defaults such as 
foreground and background colors on the screen. DBASE HI Plus memory status 
reporting is suppressed as well as all of the PF Key settings and the escape key. 
Most of this was done to prevent access to the program from the DBASE system 
level and to help prevent inadvertent user initiated program termination. It also 


ensures that all database files are closed and all memory variables are released 
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prior to main program execution. Once the parameters are set, control is returned 
to the Main (calling) module. 
4. GetInfo Module 

This module is used by both Edit.Prg and Delete.Prg. Its function is to 
allow the user to specify a record which will be edited or deleted. When this 
program is called, the first "Do while" loop (Do while exit ="N") tests true and 
control is passed to the lower level "Do while choice > 20" loop. This loop will 
present the user with a list of all twenty Marine Corps Reporting Installations. The 
user then selects the number corresponding to the Installation which contains the 
information that he is interested in. If the user enters an improper value (i.e. a 
letter or a number less than 1 or greater than 20), the "otherwise" portion of the 
case statement is executed, choice is set equal to 99 and an error message is 
displayed. The "Do while Choice > 20" loop tests true and the user is again 
presented with a menu of the Marine Corps Reporting Installations. This time he 
(hopefully!) picks an appropriate value and the case statement stores the choice to 
the memory variables "DBF" and "Station". DBF will be used in the calling module 
to access the appropriate database file. Station is used to ensure the appropriate title 
is used on all screens used in the calling module. 

After the Station has been selected by the user, the program exits the "Do 
while Choice > 20" loop and executes the "Do while (month < 1) or (month > 12)" 
loop. This loop obtains the date of the desired report. The input is checked to 
ensure a valid date (in terms of number of months) is entered. The program will 
loop in this section of code until a valid entry is made. Once this is accomplished 
the date is stored in a memory variable called "Date". This memory variable will 


be part of the Key, used by calling program, to search for the appropriate record. 
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Once an appropriate date has been entered, the program exits the "Do 
while Month" loop and executes the "Do while choice » 3" loop. This loop presents 
a menu of Crime Classifications which the user may select to work with. If the user 
makes an inappropriate entry, the "otherwise" portion of the "Do case" statement 
(which is embedded in the "Do while choice » 3" loop) will cause an error message 
to be displayed. After the error message is displayed control returns to the "Do 
while Choice > 3" loop and the Menu of Crimes Classification is presented to the 
user once again. 

If the user makes an appropriate selection, the "Do Case" Statement will 
invoke the appropriate program. These programs, Indxcrms.Prg, Drugs.Prg and 
Alcohol.Prg are just lower levels of menus which delineate specific crime choices 
to the user. The choice made in one of these programs is stored as a memory 
variable called "Crime" and this value is returned to the calling program (GetInfo) 
when control is return to GetInfo. 

Once we have all of the necessary information (Station, Crime and Date) 
the program executes the "If verify 2 N" statement. This shows the user the values 
of the information which will be used to search the database for the record he has 
specified. If all of the information is deemed correct, the program stores "Y" to 
the memory. variable "exit". This causes the "Do while exit 2 N" loop to test false 
and control is passed back to the calling module. If the user notes an error and 
enters anything other than "Y", "N" will stored to the memory variable "exit" and 
"Do while Exit = N" will test true. This will cause the program to loop to the 


beginning of this module and begin the whole selection process again. 
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5. Edit Module 

The Edit module allows the user to access any one of the twenty database 
files and edit information from a specific record within that database. It functions 
as follows. When the user chooses the Edit option from the main menu, Main.Prg 
passes control to the Edit module. The first statement in this module "Do while exit 
= N" tests true so the next statement "Do GetInfo" is executed. GetInfo returns 
values for the Memory variables "DBF", Crime" and "Date" when it returns 
control back to the Edit module. The next statement executed, "USE &DBF", is a 
macro substitution. It tells DBASE to open the database file indicated by the value 
of the DBF memory variable. Next, the program uses a locate command to find the 
specific record within the database file. This statement uses a macro substitution in 
order to search the data base file for a specific record based on the date and crime 
which was obtained in the GetInfo module. If the program fails to find a record 
based on the crime and date fields, (1. e. "If not found() and EOFY) tests true) a 
message is displayed requesting that the user verify his input. Control now goes 
back to the "Do while exit 2 N" loop, GetInfo is called again and the process repeats 
itself. 

If a record is located, the program executes the "Else" portion of the "If 
not found () and EOF ()" statement. The "Do while Repeat 2 Y" loop embedded 
within the "Else" clause, tests true. This causes the program to store all the field 
values of our selected record into memory variables. Next, a screen is generated 
which shows the user all the information contained in that record. At this point 
"get" statements allow the user to change the value of any of the memory variables 
which are displayed on the screen. After all the changes have been made, the user is 


asked to verify his changes. If the changes he made are correct, "If verify = Y" 
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tests true and the new values are written into the record by the "replace" 
commands. The program then exits all of the loops, closes the database, releases all 
the memory variables and returns control back to the calling (Main) program. 

If an error has been made, the user enters anything other than Y when 
prompted to validate his input. This causes the "If Verify = Y" statement to test 
false so that the Else clause of the statement is executed. This stores a value of "Y" 
to the loop control variable "repeat". The "Do while repeat 2 Y" statement now 
tests true and the user is once again presented with a screen showing the field values 
of the record he is working with. The user will continue to loop in this part of the 
module until he verifies that all entries are correct. The program will then exit to 
the calling module as discussed above. 

6. Delete Module 

The Delete module allows the user to access any one of the twenty 
installation database files and locate a specific record (or records) for deletion. It 
functions as follows. When the user chooses the Delete option from the main menu, 
Main.Prg passes control to the Delete module. The first statement in this module 
"Do while exit = N" tests true so the next statement "Do GetInfo" is executed. 
GetInfo returns values for the Memory variables "DBF", Crime" and "Date" when 
it returns control back to the Delete module. The next statement executed, "USE 
&DBF", is a macro substitution. It tells DBASE to open the database file indicated 
by the value of the DBF memory variable. Next the program uses a locate 
command to find the specific record within the database file. This statement uses a 
macro substitution in order to search the data base file for a specific record based 
on the date and crime which was obtained in the GetInfo module. If the program 


fails to find a record based on the crime and date fields, (i. e., If not found() and 
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EOF()" tests true) a message is displayed requesting that the user verify his input. 
Control now goes back to the "Do while exit ZN" loop, GetInfo is called again and 
the process repeats itself. 

If a record is located, the program executes the "Else" portion of the "If 
not found () and EDF()" statement. This causes a deletion Menu to appear on the 
screen. The screen shows the key record data as well as deletion options. If the 
user enters a "1", all records with the same date ( 1.e.,month and year) as the one 
chosen by the user will be deleted. If the user chooses option number "2", the 
statement "Case Choice - 2" within the "Do case" construct is executed. Now only a 
specific record (uniquely identified by crime and date) will be deleted. After the 
deletion takes place the database is packed and closed, all memory variables are 
released and "Y" is stored to the loop control variable "exit". The "Do while exit = 
N" loop will now test false and control will return back to the Main program. 

If the user choses any number other than 1 or 2, he will abort the deletion 
process by invoking the otherwise clause of the "Do Case" statement. This will 
close the database, release all memory variables and store "Y" to the loop control 
variable "exit". "Do while exit 2 N" will now test false and control of the program 
will revert back to the Main module. 

7. Update Module 

This module enables the user to enter new monthly information into the 
database for any one of the twenty Marine Corps Installations. When this module is 
called by the Main module, the first "Do while" г" "Do while repeat = Y" tests 
true, and this loop is entered. Immediately following is the "Do while exit ="N" 
loop. This also tests true and control is passed to the lower level "Do while choice 2 


20" loop. This loop will present the user with a list of all twenty Marine Corps 
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Reporting Installations. The user now selects the number corresponding to the 
Installation which contains the information that he is interested in. If the user 
enters an improper value (i.e.,a letter or a number less than 1 or greater than 20), 
the "otherwise" portion of the case statement is executed, "choice" is set equal to 99 
and an error message is displayed. The "Do while Choice » 20" loop tests true and 
the user is again presented with a menu of the Marine Corps Reporting 
Installations. This time he (hopefully!) picks an appropriate value and the case 
statement stores the choice to the memory variables "DBF" and "Station". DBF 
will be used in the calling module to access the appropriate database file. Station is 
used to ensure the appropriate title is used on all screens used in the calling module. 

After the Station has been selected by the user, the program exits the "Do 
while Choice » 20" loop and executes the "Do while (month « 1) or (month » 12)" 
loop. This loop obtains the date of the desired report. The input is checked by the 
"If (month « 1 ) or (month > 20)" statement to ensure a valid date (in terms of 
number of months) is entered. The program will loop in this section of code until a 
valid entry is made. Once this is accomplished the date is stored in a memory 
variable called "Date". This memory variable will be part of the Key, used by 
calling program, to search for the appropriate record. 

Once we have all of the necessary information (Station and Date) the 
program executes the "If verify = N" statement. This shows the user the values of 
the information which will be used to search the database for the record he has 
specified. If the user notes an error and enters anything other than "Y", "N" will 
stored to the memory variable "exit" and "Do while Exit 2 N" will test true. This 
will cause the program to loop to the beginning of this module and begin the whole 


selection process again. If all of the information is deemed correct, the program 
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stores "Y" to the memory variable "exit". This causes the "Do while exit 2 N" loop 
to test false and the "USE & DBF" statement is executed. This statement causes the 
program to access the database file of the installation which was chosen by the user. 
Next, the program moves the pointer to the top of the database file and initializes 
the loop control variable “count” to zero. 

The next line executed, "Do while count < 28" also test true because we 
just set the value of count to zero. As a result we now increment our loop variable 
by one and execute the "Do Case" statement. The value of "count" determines 
which case statement is executed and hence what value the Crime memory variable 
will have. The program then moves on to initialize several temporary memory 
variables (TF2 trough TF28) and builds an input screen. The user now fills in the 
information. This information is stored by the program into the memory 
variables. Once all the fields have been filled in by the user, he is asked to verify 
that the information is correct. If the information is correct, the user enters a "Y" 
and the "If verify = Y" statement is executed. A blank record is appended onto the 
current database file and the values of the memory variables are loaded into the 
fields of this new record. If the information is not correct the "Else" portion of the 
"If verify = Y" statement is executed. This decrements the value of the variable 
"count" and stores "N" to the memory variable "exit". The program loops back to 
the top of the "Do While count « 28" loop and the user is allowed to reenter the 
correct information. The program will remain in this loop until it has appended a 
new record for each type of crime reported on. After all twenty seven records 
have been appended, the user is asked if he would like to update the crime statistics 
for another installation. If he answers yes, "If ans 2 Y" is executed. The current 


database is closed, all the memory variables are released and "repeat" (the loop 
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control variable for the "Do while repeat = Y" loop) is set to "Y". This causes the 
program to return to the beginning of the "Update" module and execute all over 
again. If the user does not want to update another file, the "Else" portion of "IF ans 
= "Y" is executed. This causes the database to be closed, all memory variables to be 
released and "N" is stored to repeat. Now the "Do while repeat = Y" loop will test 
false and the program will exit the loop. Control then is returned to the calling 
(Main) module. 

8. Reports Module 

This module presents the user with a menu which delineates the types of 
reports available to him. The menu is implemented by a simple case statement 
embedded within a "Do while" loop. The program will remain in the loop unless 
the user enters a valid number. Once a valid entry is made the program exits the 
loop to the appropriate subordinate module. 

9. Monthly Module 

This program allows the user to view any monthly report for any Marine 
Corps installation. It also provides the user with a hard copy of the report if 
desired. It accomplishes these tasks in the following manner. 

The first several lines of code initialize all of the memory variables which 
will be used by the program. Next, the program the "Do while exit = N" loop and 
executes the "Do while choice > 20" loop. This loop presents the user with a menu 
of Marine Corps Installations. If the user enters an improper value (i.e. a letter or a 
number less than 1 or greater than 20), the "otherwise" portion of the case 
statement is executed, choice is set equal to 99 and an error message is displayed. 
The "Do while Choice » 20" loop tests true and the user is again presented with a 


menu of the Marine Corps Reporting Installations. This time he (hopefully!) picks 
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an appropriate value and the case statement stores the choice to the memory 
variables "DBF" and "Station". DBF will be used in the calling module to access the 
appropriate database file. Station is used to ensure the appropriate title is used on 
all screens used in the calling module. 

After the Station has been selected by the user, the program exits the "Do 
while Choice » 20" loop and executes the "Do while (month « 1) or (month » 12)" 
loop. This loop obtains the date of the desired report. The input is checked to 
ensure a valid date (in terms of number of months) is entered. The program will 
` loop in this section of code until a valid entry is made. Once this is accomplished 
the date is stored in a memory variable called "Date". This memory variable will 
be part of the Key, used by calling program, to search for the appropriate record. 

Once an appropriate date has been entered, the program exits the "Do 
while Month" loop and executes the "If verify =N" statement. This shows the user 
the values of the information which will be used to search the database for the 
record he has specified. If the user notes an error and enters anything other than 
"Y", "N" will stored to the memory variable "exit" and "Do while Exit = N" will 
test true. This will cause the program to loop to the beginning of this module and 
begin the whole selection process again. If all of the information is deemed correct, 
the program stores "Y" to the memory variable "exit". This causes the "Do while 
exit = N" loop to test false the next statement, "USE &DBF', is executed. 

“Use &DBF" is a macro substitution. It tells DBASE to open the database 
file indicated by the value of the DBF memory variable. The "Go Top" command, 
which follows the macro substitution, positions the record pointer to the top of the 
database file. Next the "Do While not EOF ()" command is executed. The function 


of this loop is to search the database for every occurrence of a crime that occurred 
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in the month which was specified by the "Date" memory variable. The "If 
substr(date 4,2) = substr(&date 4,2)" command checks each record for a date 
match. If one is found, the Case Statement, which is embedded in the "If substr 
(date, 4,2)..." clause, will assign the value of the crime field to an appropriate 
memory variable. Once the entire database file has been searched, we will have 
found all the occurrences for each of the twenty seven crimes during a specific 
month. For example, we now know how many Murders, Rapes, Assaults, etc. 
occurred in December, at MCAS, New River. 

The purpose of the next series of "store" commands is simply to total each 
category of crimes. For example, Burglary included the Crimes of Entry, 
Attempted Entry, Attempted Entry of DOD property and Attempted Entry of Non- 
DOD property. Each one of these individual crimes is stored in the memory 
variable "Burglary" since it is the summation of all of those crimes. This is done 
for each reporting category of crimes. Following the store commands are a series 
of "@ say" commands. They format the results of the several store commands and 
present them on the screen. At this point the user is asked if he needs a hardcopy of 
the results. If he enters a "Y", we clear the screen and prompt him to prepare the 
printer. Next the program redirects output to the printer via the "set device to print 
command". When "eject" is executed, a carriage return and line feed are sent to the 
printer. The output is returned back to the screen by the "set device to screen 
command". After the report has been printed, we close the database, clear all 
memory variables and return control back to the Reports module. If the user did 
not want a hardcopy of the report, he would enter any letter other than "Y". This 


would cause the "IF ans <> Y" statement to test true and the "close all" and “clear 
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all" commands would be executed. Control would then be returned to the calling 
(Reports) module. 
10. InfoAnnual Module 

The purpose of this module is to make certain, before the user is allowed 
to compile an annual report, that a report does not already exist for the year in 
question. If a report has already been compiled for the year, the user is queried as 
to whether he wants to overwrite the information in the Archives database file. The 
module accomplishes these tasks in the following manner. 

The first several lines of code build a screen and prompt the user to input 
the year of the Annual Report. The "If confirm = Y" statement, which is embedded 
within the "Do while repeat «» Y" loop, verifies that the correct year was entered. 
If it was not, the "If confirm = Y" statement tests false and the "Do while repeat <> 
Y" loop is executed once again. If the year was verified as being correct, the "If 
confirm = Y" statement tests true. This causes the program to access the Archives 
database file and search each record for a value of year which 15 equal to the value 
of year as entered by the user. This search is accomplished by the “Locate for year 
— curnt. year" statement. If no match is found (i.e.,an annual report does not exist) 
the "If not found () and EOF ()" condition tests true. The program then executes 
the "close all", "clear all" and "Do Annual" commands. This turns control over to 
the Annual.Prg module which actually compiles the report. Once the report is 
compiled control reverts back to the InfoAnnual.Prg module. The program now 
exits the "Do While Repeat <> Y" loop (because we set repeat equal to Y when we 
confirmed the year) and control reverts back to the calling (Reports) module. 

If, however, a match had been found (i.e.,an annual report already exists 


for that year) the "If not found () and EOF()" statement would have tested false. In 


no 


this case, the "Else" portion of the If statement would be executed. At this point, the 
user would be asked if he wanted to overwrite the existing report. If he entered a 
"Y" the existing report would be deleted, the database packed and closed, and 
control of program execution would go to the Annual module. From this point on 
program execution would proceed as discussed above. If he chose not to overwrite 
the existing report, the "If continue = Y" statement would test false. At this point 
the program would exit the "Do while repeat «» Y" loop and return control of 
program execution to the calling (Report) module. 

ll. Annual Module 

This module searches every database file for crime statistics for the year 
chosen by the user. The yearly totals for each separate Installation are appended to 
the Archives database file utilizing a compound key (Station- Year) to uniquely 
identify each record. 

The first several commands initialize all of the memory variables which 
will be used by the Annual.Prg module. Immediately following the initialization of 
the variables, we open the Archives database file in work area "A". Next we 
execute the "Do while choice « 21" loop. The purpose of this loop is to ensure that 
every installation database file is accessed when compiling the yearly totals. Note 
that within this loop, a case statement will assign a database file. The installation 
database file will be chosen based on the value of the loop control variable "choice" 
which is incremented after the yearly totals have been compiled for that specific 
installation. Once an installation database file has been selected, it is necessary to 
search for all occurrences of each type of crime for a given year. This is 
accomplished by the "If substr(date,4,2) 2 substr(&Date,4,2)" statement and the 


case statements which are embedded within the "Do while not EOF ()" loop. The 


По 


"Do while" loop will cause the record pointer to be advanced through each record 
in the database file. Each record is checked for a match on the current year by the 
"IF" clause. When a match is found, the number of occurrences for that crime is 
stored to a memory variable by the case statement. The program will loop through 
this sequence and continue to sum the occurrences of each separate crime type until 
end of file (EOF) is true. Note that using this embedded construction allowed us to 
locate each occurrence of a specific crime in a specific year and sum these values - 
all in one pass through the database file. Once we have the totals for each specific 
type of crime, we add the various memory variables together to arrive at values for 
different categories of crime. For instance, Homicides include Murder and Non- 
Negligent Manslaughter so we execute the command "Store Murdercount and 
Mancount to Homicides" to obtain this figure. Other totals are generated in an 
identical fashion. 

After the totals have been compiled using the memory variables and the 
"Store" command, we again open work area "A" (which holds the Archives 
database file) and append a new record. The "replace" commands will fill the blank 
fields of the newly appended record with the values held by the memory variables. 
After this is done, we increment the value of "count" (loop control variable for "Do 
while choice « 21") and the process starts over with a new Installation database file. 
The entire process repeats itself twenty times; the total number of Installations in 
the system. 

12. Print Module 

This is the main print module of the program. It prompts the user for the 

year of the annual report which is to be printed, and confirms the users input. It 


will loop in the "Do while repeat <> Y" loop until the user confirms that he has 
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entered the year that he wants. Once the year entered is confirmed by the user, the 
program will open the Archives database file and begin a search of the database for 
a record with the year indicated. If none is found, a message tells the user that a 
report for that year has not yet been compiled. The program then exits the Print 
module, closes the Archives database and returns to the Report module. If a 
record is found which matches the year required by the user, the program will 
execute each of the other subordinate print modules (Printl, Print2, Print3, Print4). 
After the last subordinate print module returns control to the main print module, 
the program exits the "Do while loop". Control now passes from the main print 
module back to the Reports module. 
13. Printl Module 

The purpose of this module is to print specific crime totals for each 
installation in a two column format. It will print the title of the report at the top of 
the page, list each installation and show current year and previous year totals. It 
also figures a grand total for each year as well as calculating percent change 
between the years. 

This module is invoked by the main print module which opens the 
Archives database file and passes the value of curnt_year and last_year to 
Printl.Prg. Once invoked, the Printl.Prg module will clear the screen and display 
the message "Printing....". The output device is changed to the printer and the 
program executes the "Do while count « 15" loop. This loop uses a counter to 
determine which case statement is executed. The first collection of case statements 
is used to assign a title and a crime to the memory variables "Heading" and "Crime" 
respectively. Next, the program uses the "Heading" memory variable to compute 


the column position where the title will be printed. This ensures that for each of the 
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reports generated, each different title will be centered on the page. The next "Do 
while" loop, "Do while place « 21" will select the Station which we will use to 
search the Archives database file. This loop generates the text of the report as 
follows. 

After we select a station, we use "Station" and "Last year" to locate a 
record within the Archives database file. Once the record is located, we print the 
station name, and the number of crimes which occurred in that year (last, year). 
Next we reposition the pointer to the top of the file and search the Archives 
database file for a record which matches the Station and Curnt. year. The number 
of crimes which occurred in the current year is also printed on the same line as was 
the station and last year. The values of curnt, year and last year are used to 
compute the percent change between the years. Once calculated, the percent change 
is printed on the same line as was the other information. Next, the program 
increments the current line by two and repeats the process for the next station in the 
case statement. In this manner, the totals for a specific crime (as indicated by the 
heading on the top of the page) are computed for every installation. Each line will 
contain then, the station name, last years total, current years total and the percent 
change between the years. 

After all twenty installations have been processed the program will exit 
the "Do while place « 21" loop. It will now calculate a grand total for all of the 
installations for both years as well as calculating the percent change between the 
totals. This information is printed on the last line of the report. After the last line is 
printed, the "count" memory variable is incremented by one and the "Do while 
count « 15" loop is executed once again. The entire process is repeated again only 


now we are totaling statistics for the next crime in the first case statement. After all 
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the reports have been generated, (14 pages) the "Do while count « 15" loop tests 
true and the program exits the Printl module. Control of program execution is 
now returned to the Reports module. 

ld. Print2 Module 

The purpose of this module is to print two reports in a column format. 
These are the DWI and DUI statistics for all of the Marine Corps installations. The 
module will put the title of the report at the top of each page, list each installation 
and show current year and previous year totals. It also figures a grand total for 
each year as well as calculating the percent change between the years. 

The functioning of this module is identical to that of Printl.Prg with the 
exception that it formats into eight separate columns and produces only two 
individuals reports. 

The "Do while place « 21" loop serves the same purpose as discussed in 
the Printl.Prg module. Once a specific crime is chosen, DWI for example, it will 
access the Archives database and get the information pertaining to that crime for 
the previous year and current year. This information is presented by Installation, 
on each separate line of the report. After all the information for all of the 
installations has been printed, the count memory variable of the "Do while count « 
3" loop is incremented and the process repeats itself. This time around we search 
the database for DUI statistics. Once these are all compiled, the "count" memory 
variable is incremented again. This time "Do while count « 3" tests false and we 
exit the loop. Control is now passed back to the calling (Reports.Prg) module. 

I5. Print3 Module 
The purpose of this module is to produce four tables which will show the 


statistics for the present reporting categories of crimes. The first table, "Index 


TT 


Crimes Reported to HOMC'" presents the current year and previous year totals for 
the crimes of Homicide, Forcible Rape, Robbery, Aggravated Assault, Burglary, 
Larceny and Motor Vehicle Theft. It also lists the rates at which these crimes 
occurred (occurrence/1000 individuals) and the totals for the year. The second and 
Third tables present the same information but as two separate tables. The table 
labeled "Violent Crimes Reported to HQMC" just shows the statistics for Homicide, 
Rape, Robbery and Aggravated Assault. The table titled "Crimes Against Property 
Reported to HQMC" shows the statistics for Burglary, Larceny and Motor Vehicle 
Theft. The last table generated, "Narcotics/Dangerous Drugs and Marijuana 
Offenses Reported to HQMC", delineates the drug offense (sales, possession, etc), 
totals and the rates of occurrences. 

The program generates the four reports as follows. The "Sum" function 
is used to search the Archives database file and sum the values of the specified fields 
into temporary memory variables. This is done for both the current year and the 
previous year. The current year values are stored in the T. Homicide, T. Rape etc. 
memory variable and the previous years values are stored as L. Homicide, L. Rape 
etc. After all of the values have been summed and stored into the appropriate 
memory variables, the "Do while counter < 12" loop is executed. It is within this 
loop that the rates of occurrences and yearly totals for each specific crime are 
computed. For example, the very first time the loop is executed, the value of 
counter is one. The case statement which is embedded within the "Do while" loop 
assigns the value of T Homicide to memory variable "Crimel" and the value of 
L Homicide is stored to "Crime2". Additionally, "Percntchgl" is stored to 
Perentchg, "CT. Ratel" is stored to "CT. Rate" and "LST. Ratel" is stored to 


"LST Rate". We next use these memory variables to calculate the percentage 
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change between years and the rate of occurrence for each year. This is 
accomplished by the three "Store" statements immediately following the case 
statement. Note that we use the macro substitution (&) to keep track of each 
statistic as we loop through this section of code. In other words, when we compute 
the percent change for "Homicide" we store this value to 'Prentchgl'. When we 
calculate the percent change for Rape we would store that value to 'Prentchg2' and 
so forth until all eleven case statements are executed. At this point we would exit 
the "Do while counter « 12" loop and enter the first print sequence. Incidentally, 
the "If counter « 8" statement serves to keep a running total of the seven Index 
Crimes. The Drug Offenses (case statements 9 through 11) are not included in this 
total and the "If" statement prevents their inclusion. 

The first print sequence starts with the command "@ 0,0" and ends with 
the "eject" command. All of the code in between these two commands simply 
instructs the printer to format the output in the manner desired by the user. 

When the eject command is executed, it causes the printer to advance to 
the top of the next page. At this point, the program begins to execute the second 
print sequence. This sequence generates a report of the "Violent Crimes Reported 
to HOMC". Again, we use a series of "store" commands to calculate the totals for 
this report. Once these statistics are calculated, all of the memory variables are 
formatted as output by use of the "@, say" constructions. At the end of the print 
sequence, another "eject" command is executed and a new page scrolls onto the 
printer. The same process occurs for the last two reports which are generated. 
After the last "eject" command is executed, we issue the "Set device to screen" 
command to redirect output to the screen. Control of program execution is then 


passed back to the calling (Print.Prg) module. 
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16. Print4 Module 

This module will calculate the crime rate per 1000 individuals for each of 
the major crime reporting categories. It will do this for every reporting 
installation and will present the results in a bar graph format. 

The first few lines of code simply clear the screen and generate a message 
to the user. The output is next routed to the printer via the "Set device to print" 
command. The program next enters the "Do while count « 5" loop. This loop 
causes the program to generate the four separate reports. The first time it 1s 
executed the title "Index Crime Rate by Base (per 1000) " will be stored to the 
memory variable "Heading" and "Indextotal" will be stored to the memory variable 
"Crime". The program will next calculate the center of the page and print the 
heading centered on the top of the page. The "Do while Place « 21" loop is 
executed next. The program will loop through this sequence of code obtaining the 
indextotals for each installation and printing the bar graph for that installation. It 
does this by first using the "locate" command to find correct record. Once that 
record is located, we check the value of the population field. If it is zero, we print 
an error message. If it is some value greater than zero, it is used to compute the 
crime rate for that installation, for that year. The "Do while start < Decrement" 
loop is the portion of code which generates the right amount of characters in our 
bar graph. After that line of the bar graph is printed, the program enters the 
second "locate" sequence. This portion of code is identical to that of the first locate 
sequence with the exception of the year which is used to locate the appropriate 
record. Where the first locate clause searched for all instances of indextotal in say, 
MCLB Albany in 1985, this locate command will search for all instances of 


indextotal in MCLB Albany in 1986. The bar graph for that year will be generated 
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by the second "Do while start < decrement" loop in the same manner as the first 
was. 

After the two bar graphs are printed for the first installation, the program 
will increment the line value and the value of "Place". This will cause the program 
to repeat the entire "Do while Place" loop for the next installation in the case 
statement. After the program has gone through all of the installations, the value of 
Place will be twenty one and the program will exit the "Do while place « 21" loop. 
The "If count » 3" statement which is executed next, will print the appropriate scale 
on the bottom of the report. At this point the program will loop to the beginning of 
the "Do while count « 5" loop and begin to print the next report in the sequence. 
After all four reports have been generated the program exits the "Do while count « 
5" loop, routes output back to the screen, releases all memory variables and returns 


control of program execution to the calling (Print.Prg) module. 
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VI. CONCLUSIONS 


This thesis proposed a Database Management System suitable for 
implementation within the Military Police Section of the Operations Division, 
Plans, Policies, and Operations Department, Headquarters Marine Corps. This 
system could also be utilized by the individual reporting installations with only 
slight modification. 

The goal of this study was to develop a system which would allow for faster 
information retrieval, with better accuracy at reduced cost (in terms of man hours). 
This system could also be used to aid local commanders in identifying crime trends 
and in implementing crime prevention measures which address specific criminal 
activity in their area. 

By utilizing the Life Cycle approach to systems analysis and design, we were 
able to build a system which was tailored to the unique needs of the Military Police 
Section. Because of its emphasis on documentation and maintenance 
considerations, this system will be able to be expanded to meet changing user 
requirements. 

The following recommendations are offered as possible enhancements to the 
current system. Because the program requires a great deal of disk accesses a hard 
disk is recommended. The search, seek and data transfer raters are all much more 
rapid utilizing Winchester drives as opposed to floppy disk drives. 

The use of a DBase compiler would also enhance the program. Compiled 
programs execute several orders of magnitude faster than do interpreted programs. 
There are many commercially available packages which will compile and optimize 


DBase Code. (Clipper and dBIIT) 
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The military Police Section should conduct a study to determine what their 
actual reporting requirements are. As was discussed in chapter four of the thesis, a 
good deal of the information which is collected is not used for reporting purposes. 
Many of the logical relationships that exist between the entities of the enterprise are 
not used. It would be more beneficial in terms of data integrity, to delete columns 
three thru 28 on NAVMC 1630/1 rather than to carry information which is not 


used or useful. 
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APPENDIX A 


Appendix A contains the Data Dictionary. The definitions of all 
representations on the various Data Flow Diagrams are contained here. Each 
piece of composite data (1. e., Data Flows, Data Files, and Data Elements ) is 
defined in terms of the "atomic" elements of which it is composed. 

In order to facilitate the use of the Data Dictionary the following 
notation is used: 

= means "is composed of" 

- means "and" 

() indicates the data element is at the atomic level. Its structure 
and type can be found in the "Data Base File Structures" listed in 
Appendix C 
indicates clarifying comments can be found where indicated 
{} indicates iteration of 1 to n of the element 


8 5 





DATA DICTIONARY 


DATA FLOWS 


Ad Hoc Reports 


Audit Report 


Crime Statistics Report 


Installation Name 


Monthly Report 


МАУМС 11007 - 


NA VMC 11007 ADD. = 


Log-in Info 4 Logdate 4 Logtime + 
Logchoice 


* all elements user defined* 
Log-in Info 4 Access Info 


NAVPERS 1630/1 + NAVMC 11007 
+ NAVMC 11007 ADD. 


Station + Homicide + Forcerape + 
Robbery + Assault + Burglary + 
Larceny + Autotheft + Narccount 
+ Sellcount + Dealcount + 
Smokecount + DWI + DWIBase + 
DUI + DUIBase + Indextotal + 
Violent + Propcrime + Drugtotal 
+ ОПпоа! + DWItotal 4 Boozetotal 
+ Year + Population 


(character 8 bytes) 

Loguser + Loguit + Logrank 
Station + Date + Indextotal + 
Narccount + Sellcount + 
Smokecount + Dealcount + 


Boozetotal 


DUIBase + DUI + DWIBase + DWI + 
Station + Date 


Station + Date 
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DATA DICTIONARY 


МРЕВ мизож = Homicide + Forcerape + Robbery + 
Assualt + Burglary + Larceny + 
Autotheft + Drugtotal + Station + 
Date + F-1 + F-2 + F-3 + F-4 + F-5 + 
F-6 + F-7 + F-8 + F-9 + F-10 + F-11 
+ F-12 + F-13 + F-14 + F-15 + F-16 
+ F-17 + F-18 + F-19 + F-20 + F-21 
+ F-22 + F-23 + F-24 + F-25 + F-26 


+ F-27 + F-28 
Data Files 
Access File = (Access Info] 
Awshaves File = { Crime Statistics Report } 
CrimeiFile = ( Installation Reports ) 
Installation File = (Station) 
ATA MENT 
Arapecount = *alias attempted rape * 


Tsee tem 2B Figure 9:28 


Armedcount = *alias robberv w/firearm ' 
*see item 3a Figure 5.2“ 


Assault = Assltcount + Othercount + 
Simplcount 
Assltcount = *alias assault w/firearm* 


secat imd as Ipso 
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DATA DICTIONARY 





Autocount = *alias motor vehical theft - auto* 
ССС Оос a 


Autotheft = Autocount + Vancount + 
Gautocount + Nautocount 


Boozetotal = DWItotal 4 DUltotal 
*alias alcoholtotal 

Burglary = Entrycount + Trycount + DODcount 
+ NDODcount 

Civiltheft = *alias larceny non-govt. property* 


*see item 6b Figure 5.24 


Crime = Murdercount + Mancount + 
Rapecount + Arapecount + 
Armedcount + Othercount + 
Assltcount + Otwpncount + 
Simplcount + Entrycount + 
Trycount + DODcount + NDODcount 
+ Govtheft + Civiltheft + Autocount 
+ Vancount + Nautocount + 
Gautocount + Narccount + Sellcount 
+ Dealcount +Smokecount 
+DWIBase + DWI + DUIBase +DUI 


Date = [ year/month | 


Dealcount = *alias marijuana sale & trafficing* 
fsee item ЭВ Pipure 5 22 


DODcount = *alias bugrlary & housebreaking 


govt. property* 
хосе е сое aa 
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DICTIONARY 





Drugtotal = Narccount +Sellcount + Dealcount + 
Smokecount 

DUI = *alias DUI off base* 

DUIbase = *alias DUI on base* 

DUltotal — DUI « DUlIbase 

DWI = *alias DWI off base* 

DWIbase = *alias DWI on base* 

DWItotal = DWI 4 DWIbase 

Edited Crime Information = *Crime Information* 

Entrycount = *alias burglary & housebreaking* 
*see item 5a Figure5.2* 

[SM F25 = *alias of fields in Figure 5.2* 

ForceRape - Rapecount + Arapecount 

Gautocount = *alias motor vehical theft - govt.* 
See, (tcl е? Іште” 5.27 

Govtheft — *alias larceny of govt. property* 
ЕССЕ О Figure 5.2* 

Homicide = Murder + Mancount 
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Indextotal = 


Larceny = 
Logchoice = 


Logdate = 


Logrank 


Logtime 
Logunit = 
Loguser = 


Mancount = 


Murdercnt = 


Narccount = 


Nautocount = 


NDODcount = 


DATA DICTIONARY 





Homicide + Forcerape + Robbery + 
Assault + Burglary + Larceny + 
Autotheft 

Govtheft 4 Civiltheft 

(character 10 bytes) 

(date 8 bytes) 

(character 5 bytes) 

(character 8 bytes) 

(character 4 bytes) 


(character 20 bytes) 


*alias manslaughter* 
*see item 1b Figure 5.2* 


*alias murder* 
*see item la Бізше)” 


*alias Narcotics use & possession* 
*see item 8A Figure 5.2* 


*alias motor vehical theft 
non-govt. property* 
“See Nem 7d Figüre 5.25 


*alias burglary & housebreaking 
non-govt. property* 
fsee items dakioune 3:25 
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DATA DICTIONARY 





Othercount = *alias robbery w/other weapon * 
iscetlfemmeob Figure 5.2* 


Otwpncount = *alais assault w/other weapon* 
1 сетиени 40 Figure 5.29 


Population = ( character 5 bytes ) 
Рторстипе - Burglary + Larceny +Autotheft 
Rapecount = *alias Rape* 


Бет ЛА sure 2,25 
Robbery - Armedcount 4 Othercount 


Sellcount = *alias narcotics sales &trafficing* 
се item SB Figure 5.27 


Simplcount = *alias simple assault* 
rece iem demeure 2.2" 


Smokecount = *alias marijuana use & possession* 
tecetitemeoAabigure 2,2” 


Station = (character 30 bytes) 
Trycount = *alias burglary & house breaking 
entry* 


(socie 5p'iicure 5.2* 


Maneount — *alias motor vehical theft - other* 
*see item 7b Figure 5.2* 


Violent = Homicide + Forcerape +Robbery + 
Assault 


2j 


DATA DICTIONARY 


рвав = ( numeric 4 bytes ) 


Yearly totals = { installation reports} 


D 


APPENDIX B 
MiniSpecs 


Process Description Summary Page 




















Process 1.0 
Do while incorrect password is entered 

get the user's name 

get the user's rank 

get the user's unit 

get the user's password 

if after three tries they do not enter the correct password 
exit to the operating system 

if the correct password is entered 
do the main program 


Enddo while password is incorrect 





PROGRAMMER NOTES: Use global variables to store the user's name, rank and unit 
after the password has been correctly entered 
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Process Description Summary Page 


Process 2.0 





After the user enters the system do 


record the user's name in the access database 

record the user's rank in the access database 

record the user's unit in the access database 

record the date of access 

record the time of access 

record the menu option chosen 
PROGRAMMER NOTES: When this process is coded, the modules functioning should be 
transparent to the user. Writing to the file should take place while the user is viewing the 


main menu options. 





Process 3.0: 
Get the date of the desired report 
Get the installation name for that report 
Get the type of crime statistic needed for the report 
Store this information in memory 
PROGRAMMER NOTES: This process obtains the necessary information needed to 


search for a specific record within a specific database. A series of menu screens will aid 


the user in entering the necessary information. 





94 


Process Description Summary Page 


Process 3.2 

















Do the following for all installations 
get installation name 
get date of report 
verify choices 

Do for all categories of crime 
get type of crime 
enter crime data 
get next crime 
enddo for all crime 
Enddo for all installations 


PROGRAMMER NOTES: This process obtains the information necessary to add a 
new record or records to an installation database. Information by type of crime 
should be entered for all crime categories of crime within each separate database. 


Process Name:  EditInfo 


Process 3.3 





Use GetInfo process to locate specific record 
display record on screen 
allow user to edit record 
verify any changes made 


record changes іп appropnate database 


PROGRAMMER NOTES: Use memory variables to manipulate information stored in the 
database. Do not allow the user to edit information directly into the database. 





Process Name: Delete Info 


Process 3.4 


Use GetInfo process to locate a specific record 
display record on screen 

ensure that user wants to delete that record 
delete record 


PROGRAMMER NOTES: Ensure database is packed after the record has been deleted. 
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Process Name: Generate Crime Statistics Report 


Process 4.1 


Do for all installations 
select installation database 
get population figure from the user 
do for all categories of crime 
store crimes to memory variables 
append blank record to database file 
replace empty fields with memory variables 
Enddo 


PROGRAMMER NOTES: This process should search through all of the database files for 
records having the same value in the year field. Each crime statistic for that specific year is 
totaled and the results will be stored in the Crime Statistics Report database file. 


Process Name: Ad Hoc Reports | 


Process 4.2 





| 
PROGRAMMER NOTES: This process will be implemented by the Data Manipulation 
Language (DML) of the application used to implement the system. 

‘Process Name: Monthly Reports  . . | | |. 





Process 4.3 


get date of required report 

get installation name 

use installation database 
search for all record having the required date 
display all information 
print information if desired 


PROGRAMMER NOTES: This process will provide a synopsis of the major crime 


categories which occurred at a specific installation during a given month. This information 
will be extracted from the Archive Reports database file 
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Process 4.4 


use Access database file 
display fields on screen 
ask if printout 1s required 
if required, print report 
else return to reports menu 


PROGRAMMER NOTES: This report should be a simple listing of who accessed the 
system, the date and time of access, as well as the main menu options chosen by the user 
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APPENDIX C 


| ACCESS.DBF 


2 m nit CM 4 Bytes 
9 Logchoicec Character 10 Bytes 
4 Logchoice Numeric 2 Bytes 
Log Time | Character Bvtes 
Logdate Date 8 Bytes 


Programmers note: This file provides an audit trail of accesses to the system. The file 


is restricted to a read only mode for the user. The program will update the file each time a 


user logs on to the system. 
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ARCHIVES.DBF 
FIELD WIDTH 


3 Forcerape Numeric 4 Bytes 
5 Assault Numeric 4 Bytes 
7 Larceny Numeric 4 Bytes 
5 Autotheft Numeric 4 Bytes 


10 Sellcount Numeric = 4 Bytes 
ІШ Smokecount Numeric 4 Bytes 
12 


Dealcount Numeric 4 Bytes 


1 DWIBase Numeric 4 Bytes 


3 


19 Propcrime Numeric 4 Bytes 
4 Drugtotal Numeric 4 Bytes 


0 
25 Population Numeric 5 Bytes `: 


Programmers note; also see Figure 5.3 labled "Archives Database Structure" 
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DATA BASE STRUCTURE 
INSTALLATION .DBF FILES 











Е-3 unfounded false reports on base Numeric 2 
Е-4 unfounded false reports off base Numeric D 
Е-5 cleared by arrest Numeric 2 
F-i4 perpetrator - female | ... Numeric 2 
- perpetrator - Negroid | 2 
F-17 ` perpetrator - all others | Numeric 2 
F-20 victim - dependent итегіс (ol m | 
F-25 X victim - Negroid | Numeric le _ 
F-28 alcohol involvement Numeric 2 | 
CRIME classification of offense Character 30 
DATE date of offense Character 5 


Programmers note; a descriptive summary of the data fields is provided in Figure 4.9 
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APPENDIX D 


The following pages present the module descriptions for the 19 individual 
modules supporting the application. The descriptions presented are in the form of 
pseudocode and do not represent the actual code found in the DBase III+ application 
If the reader requires that level of knowledge he or she is directed to Appendix E 


where a complete listing of the program code itself is provided. 
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MODULE NAME: Annual.Prg DATA BASES USED: Archives.DBF 
CALLED FROM:  Infoannual.Prg (and all .DBF Files) 


STORE 0 TO ALL MEMORY VARIABLES 
SELECT A 

USE ARCHIVE 

DO WHILE CHOICE « 21 


DO CASE 
SELECTS EACH DATABASE IN SEQUENCE 
END CASE 
DO WHILE ANSWER = М 
GET POPULATION 
IF REPLY = Y 
CONFIRMRESPONSE 
ELSE 
GET POPULALTION 
ENDIF 
ENDDO WHILE ANSWER = N 
USE &DBF 
DO WHILE .NOT. EOF() 
IF SUBSTDR (DATE 4,2) = SUBSTR (&DATE,4,2) 
LOCATES RECORD BY DATE MATCH (YEAT) 
DO CASE 
TOTALS VALUES FOR EACH CRIME CATEGORY 
ENDCASE 
ELSE 
ERROR CONDITION - ON DATE 
ENDIF 
SKIP 
ENDDO WHILE .NOT. EOF() 
STORE MURDERCNT + MANCOUNT TO HOMICIDES 
TOTALS COMPOSIT INDEX CRIMES 
IF VAL (SUBSTR ("8 ОАТЕ",4,2)) > (80) 
PREPEND PROPER CENTRY TO DATE 
ELSE 
PREPEND PROPER CENTURY TO DATE 
ENDIF 
TINDXTOTAL — TINDXTOTAL 4 INDXTOTAL 
TOTALS INDEX CRIMES/STATION 
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MODULE NAME: Annual.Prg DATA BASES USED: Archives.DBF 
CALLED FROM: Infoannual.Prg (and all .DBF Files) 


SELECT A 

APPEND BLANK 

APPENDS NEW RECORDS TO ARCHIVE DBF 

REPLACE STATION WITH "&STATION" 

FILLS BLANK FIELDS IN APPENDED RECORD 

STORE POP + LTRIM (STRING (CHOICE,2)) TO TEMP 
BUILDS POP MEMORY VARIABLE FOR EACH STATION 
REPLACE POPULATION WITH &TEMP 

FILLS POPULATION FIELD IN ARCHIVE RECORD 





TINDXCH = CHOICE + 1 
RELEASE ALL EXCEPT TINDX* 
CHOICE - ТІМОХСН 

ENDDO WHILE CHOICE « 21 

CLOSE ALL 

CLEAR ALL 

RETURN 





PROGRAMMER NOTES: This module searches each database for crime statistics for 
the year chosen by the user. The user is prompted for the population of each installation 
as that database is accessed. All of the information is collated and appended to the 
Archives database file. 
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MODULE NAME: Delete.Pr g DATA BASES USED: As selected by user 
CALLED FROM:  Main.Prg (any .DBF File) 






THIS MODULE CALLS: Getinfo.Prg 
STORE N TO EXIT 
DO WHILE EXIT =N 
DO GETINFO 


USE &DBF 
LOCATE FOR CRIME = &CRIME) .AND (DATE = &DATE) 
IF NOT. FOUND .AND. EOF() 

ASK FOR VERIFICATION OF INPUT 

CLOSE ALL 

CLEAR ALL 
ELSE 

DO WHILE REPEAT - Y 

STORE Y TO VERIFY 


IF VERIFY = ¥ 
STORE Y TO EXIT 
STORE N TO REPEAT 
REPLACE FIELD VALUES W/ MEMORY VARIABLES 


ELSE 
STORE Y TO REPEAT 
ENDIF VERIFY 
ENDDO WHILE REPEAT 
ENDIF NOT. FOUND .AND. EOF() 
ENDDO WHILE EXIT =N 
CLOSE ALL 
CLEAR ALL 
RETURN | | 
PROGRAMMER NOTES: This module allows the user to delete erroneous or 
redundant records. 
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MODULE NAME: Edit.Prg DATA BASES USED: As selected by user 
CALLED FROM:  Main.Prg (any .DBF File) 





THIS MODULE CALLS: Getlnfo.Prg 
STORE N TO EXIT 
DO WHILE EXIT = N 
DO GETINFO 


USE &DBF 
LOCATE FOR CRIME = &CRIME) .AND (DATE = &DATE) 
IF .NOT. FOUND .AND. EOF() 

ASK FOR VERIFICATION OF INPUT 

CLOSE ALL 

CLEAR ALL 
Ese 

DO WkHIEE REPEAT = Y 

STORE Y TO VERIFY 


EAETSY - Y 
STORE Y TO EXIT 
STORE N TO REPEAT 
REPLACE FIELD VALUES W/ MEMORY VARIABLES 


ELSE 
STORE Y TO REPEAT 


ENDIF VERIFY 


ENDDO WHILE REPEAT 
ENDIF NOT. FOUND .AND. EOF() 

ENDDO WHILE EXIT =N 

CLOSE ALL 

CLEAR ALL 

RETURN | 
PROGRAMMER NOTES: This module allows the user to select a specific record 
for editing. 
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MODULE NAME: Infoannual.Prg | DATA BASES USED: Archives.DBF- | 
CALLED FROM:  Report.Prg 


STORE N TO CONTINUE, REPEAT, CONFIRM 
(BUILDS SCREEN) 
DO WHILE REPEAT «» Y 
GET YEAR OF DESIRED REPORT 
CONFIRM THE YEAR ENTERED 
IF CONFIRM = Y 
STORE Y TO REPEAT 
USE ARCHIVE 
INDEX ON STATION + STR(YEAR) TO TEMP 
LOCATE FOR YEAR = CURNT_YEAR 
IF NOT FOUND () AND EOF () 
CLOSE ALL 
CLEAR ALL 
DO ANNUAL 
ELSE 
ISSUE WARNING MESSAGE 
ASK TO CONTINUE 
IF CONTINUE = Y 
DELETE ALL FOR YEAR » CURNT YEAR 
PACK 
CLOSE ALL 
DO ANNUAL 
ELSE 
CLOSE ALL 
ENDIF 
ENDIF 
ENDIF 
ENDDO WHILE REPEAT <> Y 
RETURN 
PROGRAMMER NOTES: This module obtains the year of the annual report and 
checks to see if a report already exists for that year. If a report exists, the user is 
given the option of over-writing the report or exiting to the Reports.Prg module. 
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MODULE NAME: Main.Prg 


BEEN MEM ИИ E ҙ "ly rmm EMO 
DATA BASES USED: none 

CALLED FROM: Security.Prg 

IBS MODULE C : Init. 1 


odate.Prg, Delete.Prg, Reports.Prg 
DO WHILE EXIT » 5 
(SHOW MENU) 
ж 
DO CASE 
ж 


(SELECT OPTION) 
OTHERWISE 


(ERROR MESSAGE) 
ж 


DO WHILE DELAY « 50 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELA Y « 50 
ENDCASE 
ENDDO WHILE EXIT » 5 
RETURN 


PROGRAMMER NOTES: This module presents the user with a menu of all 


the program reports available. It also controls the execution of all sub-programs. 
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MODULE NAME: Monthly.Prg | [DATA BASES USED: As selected by user 
CALLED FROM:  Reports.Prg (any .DBF File) 


STORE 0 TO ALL MEMORY VARIABLES 
DO WHILE EXIT = N 
DO WHILE CHOICE > 20 
BUILD MENU SCREEN 
DO CASE 
GET APPROPRIATE DATABASE FILE 
OTHERWISE 
DISPLAY ERROR MESSAGE 
ENDCASE 
END DO WHILE CHOICE » 20 
DO WHILE (MONTH «1) OR (MONTH » 12) 
GET DATE 
IF (MONTH «1) OR (MONTH »12) 
PRINT ERROR MESSAGE 
ENDIF 
ENDDO WHILE (MONTH «1) OR (MONTH »12) 
GET VERIFICATION OF INPUT 
IF VERIFY = Y 
STORE Y TO EXIT 
ELSE 
STORE N TO EXIT 
STORE 99 TO CHOICE 
END IF 
ENDDO WHILE EXIT - N 
USE &DBF 
GO TOP 
DO WHILE NOT ECF () 
IF SUBSTR (DATE,4,2) - SUBSTR ("&DATE,4,2) 
DO CASE 
STORE CRIME FIGURES TO MEMORY VARIABLES 
ENDCASE 
ENDIF 
SKIP 
ENDDO WHILE NOT EOF() 
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MLA 
MODULE NAME: Monthiv.Prg DATA BASES USED: As selected bv user 
CALLED FROM:  Reports.Prg (any .DBF File) 


THIS MODULE CALLS: Getinfo.Prg 


STORE ALL MEMORY VARIABLES 
TOTALS THE INDEX CRIMES 
CLEAR SCREEN 
(SHOW TOTALS ON SCREEN) 
(ASK IF HARD COPY IS NEEDED) 
IF ANS <> Y 
CLOSE ALL 
CLEAR ALL 
ELSE 
CLEAR SCREEN 
SET DEVICE TO PRINT 
EJECT (FORCE CARRAGE RETURN 
SET DEVICE TO SCREEN 
CLOSE ALL 
CLEAR ALL 
ENDIF ANS <> Y 
RETURN 
PROGRAMMER NOTES: This module allows the user to view any monthly report 
which is stored in the database files. It also allows the user to get a hardcopy of the report 
if desired 
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Ieee 
CALLED FROM: _ Reporte 
CALLED FROM: Беше 
THIS MODULE CA : Print1. int2.Pre, Print3. intd. 
(BUILD SCREEN) 
IF ANS «» Y 
RETURN 


ELSE 
DO WHILE REPEAT < Y 





* 


GET YEAR OF REPORT 
IF CONFIRM =Y 


CONFIRM ENTRY 

OPEN DATABASE 

SEARCH FOR YEAR 

IF NOT FOUND () AND EOF() 


GENERATE ERROR MESSAGE 
ELSE 
DO ALL PRINT ROUTINES 
END IF NOT FOUND 
ENDIF CONFIRM 
ENDDO WHILE REPEAT 
ENDIF ANS 
ERASE TEMP 
CLOSE ALL 
CLEAR ALL 
RETURN 


PROGRAMMER NOTES: This module controls all of the print routines contained 
in the program. 
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MODULE NAME: Printl.Prg DATA BASES USED: Archives.DBF 
DO WHILE COUNT « 15 
DO CASE 
SELECTS CRIME FOR DATABASE SEARCH 
STORES APPROPRIATE HEADING FOR PRINTING 
ENDCASE 
STORE (80-LEN(TRIM(&HEADING)))/2 TO CENTER 
COMPUTES CENTER OF PAPER FOR HEADING PLACEMENT 
PRINTS HEADING 
DO WHILE PLACE < 21 
DO CASE 
SELECTS STATION FOR DATA BASE SEARCH 
ENDCASE 
GO TOP 
LOCATE FOR (STATION = &STATION) .AND. (YEAR = LAST YEAR) 
FINDS SPECIFIED RECORD BASED ON COMPOUND KEY 
PRINTS STATION NAME, VALUE OF CRIME FIELD 
INCREMENTS TOTAL BY VALUE OF CRIME FIELD 
GO TOP 
LOCATE FOR (STATION =&STATION) .AND. (YEAR = CURRENT YEAR) 
FUNCTIONS AS ABOVE, BUT USES CURRENT YEAR FIGURES 
IF TEMP =0 
CHECK FOR DIVISION BY ZERO 
ELSE 
COMPUTES PERCENTAGE CHANGE BETWEEN YEARS 
ENDIF 
STORE PLACE «1 TO PLACE 
COMPUTES FIGURES FOR NEXT INSTALLATION IN DO WHILE LOOP 
ENDDO WHILE PLACE « 21 
PRINTS TOTAL ON LAST LINE 
IF YEAR TOTAL 20 
CHECK FOR DIVISION BY ZERO 
EISE 
COMPUTES TOTAL PERCENTAGE CHARGE BETWEEN YEARS 
ENDIF 
INCREMENT COUNT TO GET INFO FOR NEXT CRIME 
ENDDO WHILE COUNT « 15 
RELEASE ALL 
RETURN 
PROGRAMMER NOTES: This module will print the crime statistics information 1n 
the two column format as well as calculate the percent change between the vears 
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CALLED FROM:  Print.Prg i 
DO WHILE COUNT « 3 
DO CASE 
STORE HEADING 
STORE CRIME 
ENDCASE 
STORE (80-LEN(TRIM(&HEAQDING)))/2 TO CENTER 
PRINTS APPROPRIATE HEADING IN CENTER OF PAGE 
STORE 11 TO LINE 
STORE 1 TO PLACE 
STORE 0 TO ALL MEMORY VARIABLES 
DO WHILE PLACE < 21 
DO CASE 
SELECTS INSTALLATION FOR DATABASE SEARCH 
ENDCASE 
GO TOP 
LOCATE FOR (STATION+&STATION) .AND. (YEAR = &YEAR) 
FINDS SPECIFIED RECORD BASED ON COMPOUND KEY 
STORES FIELD VALUES TO MEMORY VARIABLES 
GO TOP 
LOCATE FOR (STATION = &STATION) .AND (YEAR » CURNT YEAR) 
AS ABOVE BUT FOR THE CURRENT YEAR 
IF LAST. TOTAL =0 
CHECKS FOR DIVISION BY ZERO 
ELSE 
COMPUTES TOTAL PERCENT CHANGE 
ЕМОҒ 
STORE PLACE + 1 TO PLACE 
STORE LINE + 2 TO LINE 
INCREMENTS DO WHILE AND CALCULATES AND PRINTS NEXT LINE 
ENDDO WHILE PLACE < 21 
STORE LINE + 1 TO LINE 
PRINTS TOTALS AT BOTTOM OF PAGE 
IF TEMP 5 TOTAL =0 
CHECK FOR DIVISION BY ZERO 
ELE 
CALCULATE TOTAL PERCENT CHANGE 
ENDIF 
INCREMENTS COUNT FOR 
RELEASE ALL TEMPORARY MEMORY VARIABLES 
ENDDO WHILE COUNT <3 
RETURN 
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MODULE NAME: Print3.Prg DATA BASES USED: Archives.DBF 
CALLED FROM: _ Print.Prg 
THIS MODULE CALLS: none 


@10, 3 CLEAR TO 20, 78 
STORE MEMORY VARIABLES 
SUM 
SUMS VALUES OF SPECIFIED FIELDS INTO MEMORY VARIBLES 
DO WHILE COUNTER < 12 
DO CASE 
STORES VALUES OF FIELDS INTO MEMORYVARIABLES CRIME 1 & 2 
STORES RATE, PERCENT CHANGE TO MEMORY VARIABLES 
ENDCASE 
STORE ROUND((CRIME1-CRIME2)/CRIME2)*100),2) TO &8PERCNTCHG 
CALCULATES THE PERCENTAGE CHANGE BETWEEN YEARS FOR EACH CRIME 
STORE ROUND (((1000*CRIME1/CURNT POP),4) TO &CT RATE 
CALCULATES CRIME RATE PER 1000 INDIVIDUALS 
STORE ROUND (((1000'CRIME2/LAST POP),4) TO LST RATE 
CALCULATES CRIME RATE PER 1000 INDIVIDUALS 
IF COUNTER <8 
TOTALS PRECEEDING AND CURRENT YEAR VALUES 
(INDEX CRIMES ONLY) 
CALCULATES PERCENTAGE CHANGE BETWEEN YEARS 
ENDIF 
STORE COUNTER + 1 TO COUNTER 
ENDDO WHILE COUNTER < 12 
@ 0,0 
SET DEVICE TO PRINT 
PRINTS THE FIRST REPORT 
STORE T. HOMICIDE « T RAPE « T ROBBERY « T ASSAULT TO C TOTAL 
CALCULATE STATISTICS FOR NEXT REPORT 
(Ә 0,0 
PRINT SECOND REPORT . 
STORE BURGLARY + LARCENY + T_AUTOTHEFT TO PROPCRIME 
CALCULATE STATISTICS FOR NEXT REPORT 
@ 0,0 
PRINT THIRD REPORT 
STORE T_NARC + T_SELL + T_DEAL + T_SMOKE TO DRUGTOTAL 
(90,0 
PRINT FOURTH REPORT 
RELEASE ALL 
RETURN 
PROGRAMMER NOTES: This module will format the crime statistics into the four 
tabular formats required bv the user. 
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MODULE NAME: Print4.Prg DATA BASES USED: Archives.DBF 
CALLED FROM:  Print.Prg 


DO WHILE COUNT « 5 
DO CASE 
(STORES APPROPRIATE HEADING TO MEMORY VARIABLE) 
(STORES APPROPRIATE CRIME TO MEMORY VARIABLE) 
END CASE 
STORE (80-LEN (TRIM (&HEADING))) /2 TO CENTER 
(PRINTS HEADING IN CENTER OF PAGE) 
DO WHILE PLACE « 21 
DO CASE 
(STORES INSTALLATION NAME TO MEMORY VARIABLE) 
END CASE 
LOCATE FOR (STATION - &STATION) .AND. (YEAR » CURNT. YEAR) 
(FINDS RECORD) 
IF POPULATION =0 
CHECKS FOR DIVISION BY ZERO 
ELSE 
STORE 32 TO START 
STORE 30 TO COLUMN 
(COMPUTE CURRENT RATE PER 1000 INDIVIDUALS) 
(ADD RATE TO COLUMN) 
DO WHILE START < DECREMENT 
PRINT GRAPH 
ENDDO WHILE 
(PRINT VALUE OF CURRENT RATE PER 1000 INDIVIDUALS) 
ENDIF POPULATION =0 
NEXT LOCATE SCOPE 
INCREMENT LINE 
INCREMENT PLACE 
ENDDO WHILE PLACE « 21 
IF COUNT >0 
PRINT SCALE 1-10 
ELSE 
PRINT SCALE 10-100 
ENDIF 
PRINT LEGEND 
ENDDO WHILE COUNT «5 
SET SAFETY ON 
EJECT 
SET DEVICE TO SCREEN 
RELEASE ALL 
RETURN 
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ann —X см LR 
MODULE NAME: Reports.Prg | DATA BASES USED: none 
CALLED FROM: Main.Prg 

ЕС ; : | int. 


, Audit. Pre 





STORE 9 TO CHOICE 
DO WHILE CHOICE » 5 
CLEAR 


BUILD SCREEN 


* 


DO CASE 
GET USER CHOICE 
OTHERWISE 


DISPLAY ERROR MESSAGE 
STORE 1 TO DELAY 
DO WHILE DELAY « 35 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELAY < 35 
ENDCASE 
ENDDO WHILE CHOICE > 5 
RETURN 


PROGRAMMER NOTES: This module presents the user with a menu which 
lists all of the program reports available. 
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MODULE NAME: Security.Prg [DATA BASES USED: Acess.DBF 
CALLED FROM: none 


THIS MODULE CALLS: Main.Pre | 
DO WHILE RIGHT = N | 


ж 


GET PASSWORD 
IF PASSWORD «» PASSWORD ENTERED 


ж 


' STORE LOOP =1 + TO LOOP 
El SE 
STORE Y TO RIGHT 
DO MAIN 
ENDIF 
IF LOOP = 3 


(MESSEGE ACCESS DENIED) 
DO WHILE DELAY « 50 
STORE DELAY « 1 TO DELAY 
ENDDO WHILE DELAY « 50 
CLEAR ALL 
QUIT 
ENDIF 
ENDDO WHILE RIGHT =N 
RETURN 
PROGRAMMER NOTES: This program contains the password which allows an 
authorized user to access the crime statistics database. The user's name as well as 
access information (files accessed, date & time) is recorded. This information is stored 
in a file called Access. DBF 
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MODULE NAME: Update.Pr E DATA BASES USED: As selected by user 
CALLED FROM: Маш.Рге (any .DBF File) 


DO WHILE REPEAT - Y 
DO WHILE EXIT = N 
DO WHILE CHOICE > 20 
READ 
DO CASE 


OTHERWISE 
CHOICE = 99 
END CASE 
ENDDO WHILE CHOICE > 20 
DO WHILE (MONTH <1) .OR. (MONTH > 12) 
GET DATE 
IF (MONTH « 1) .OR. (MONTH >12) 
ERROR MESSAGE 
DO WHILE DELAY « 50 
STORE 1 + DELAY TO DELAY 
ENDDO WHILE DELAY 
ENDIF 
ENDDO WHILE MONTH 
GET DATE PICTURE, GET VERIFY PICTURE 
IF VERIFY - М 
STORE N TO EXIT 
ENDF 
ENDDO WHILE ЕХП + М 
USE &DBF 
GO TOP 
STORE 0 TO COUNT 
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MODULE NAME: Update.Prg DATA BASES USED: As selected by user 
CALLED FROM:  Main.Prg (any .DBF File) 
THIS MODULE CALLS: GetlInfo.Prg | = 

DO WHILE COUNT < 28 


STORE COUNT + 1 TO COUNT 
DO CASE 







END CASE 
STORE 00 TO ALL MEMORY VARIABLES 
STORE Y TO VERIFY 
IF VERIFY =Y 
APPEND BLANK 
REPLACE FIELD VALUES WITH MEMORY VARIABLE VALUES 
ELSE 
STORE COUNT -1 TO COUNT 
ENDIF 
ENDDO WHILE COUNT < 28 
GET ANS PICTURE 
IF ANS = Y 
STORE Y TO REPEAT 
CLOSE ALL, CLEAR ALL 
ELSE 
CLOSE ALL,CLEAR ALL 
STORE N TO REPEAT 
ENDIF 
ENDDO WHILE REPEAT = Y 
RETURN 

























PROGRAMMER NOTES: This module allows the user to input monthly crime 
data which is recieved from the twenty reporting installations. Data is stored in 
a separate DBF file for each installation. 
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MODULE NAME: Getlnfo.Prg DATA BASES USED: As selected by user 
CALLED FROM: Edit.Prg, (any .DBF File) 
Update.Prg 
DO WHILE EXIT = N 
DO WHILE CHOICE > 20 





PRESENT MENU OPTIONS 


DO CASE 
SELECT APPROPRIATE DATA BASE 
OTHERWISE 
DISPLAY ERROR MESSAGE 
ENOCASE 
ENDDO WHILE CHOICE » 20 
DO WHILE (MONTH «1 ) OR (MONTH » 12) 


GET DATE 
IF (MONTH « 1 ) OR (MONTH » 12) 
PRINT ERROR MESSEGE 
ENDIF 
ENDO WHILE MONTH 
DO WHILE CHOICE 3.3 


PRESENT MENU OPTIONS 
ООСАЗЕ 


SELECT APPROPRIATE PROGRAM 
OTHERWISE 
DISPLAY ERROR MESSEGE 
ENOCASE 
ENDDO WHILE CHOICE » 3 


VALIDATE INPUT 


IF VERIFY =N 
STORE 99 TO CHOICE 
STORE N TO EXIT 
ELSE 
STORE Y TO EXIT 
ENDIF 
ENDO WHILE EXIT =N 
RETURN 
PROGRAMMER NOTES: This module allows the user to specify the station, 
date of report, and crime statistic which will be updated or edited. 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


* Program : ALCOHOL.PRG 

* Author : P. E. PAQUETTE 

“Dae: 10/25/87 

* Purpose : THIS MODULE ALLOWS THE USER TO SELECT A 
ж 


SPECIFIC ALCOHOL RELATED OFFENSE FOR UPDATING 


* OR EDITING 
* Input File : NONE 

* Output File : NONE 

* CalledBy : СЕТІМЕО 


* Calls : NONE 
* Variables 
*4 Locale LOOP, DELAY, CRIME 


* Global : NONE 


X Y> Y Y X Y YX X X X H Y X 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


SET TALK OFF 
SET STATUS OFF 
STORE 9 TO LOOP 
STORE " " TO CRIME 
DO WHILE LOOP » 4 
CLEAR 
(2 0,0 TO 24,79 DOUBLE 
@ 3,32 SAY "MARINE CORPS" 
@ 4,21 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,22 SAY "ALCOHOL RELATED DRIVING OFFENSES" 
@ 8,0 SAY CHR(204) 
@ 8,79 SAY CHR(185) 
@ 8,1 TO 8,78 DOUBLE 
@ 10,22 SAY " **** DRIVING WHILE INTOXICATED ****" 
@ 12,29 SAY "1. DWI ON BASE" 
@ 13,29 SAY "2. DWI OFF BASE" 
@ 15,20 SAY "**** DRIVING WHILE UNDER THE INFLUENCE ****" 
@ 17,29 SAY "3. DUI ON BASE" 
@ 18,29 SAY "4. DUI OFF BASE" 
@ 22,23 SAY "Choose the crime data to be edited" 
@ 23,38 GET LOOP PICTURE "9" 
READ 
DO CASE 
CASE LOOP = 1 
STORE "DWI ON BASE" TO CRIME 
CASE LOOP = 2 
STORE " DWI OFF BASE" TO CRIME 
CASE LOOP = 3 
STORE "DUI ON BASE" TO CRIME 
CASE LOOP = 4 
STORE "DUI OFF BASE" TO CRIME 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
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@ 15,25 SAY "ENTER A NUMBER LISTED" 
?? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY <35 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELAY <35 
ENDCASE 
ENDDO 
RETURN 
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* Program : ANNUAL.PRG 


* Author : P. E. PAQUETTE 

* Date : 12/05/86 

* Purpose : THIS PROGRAM SEARCHES EACH DATABASE FOR CRIME 
ы STATISTICS FOR THE YEAR CHOSEN BY THE USER. 


THE USER IS PROMPTED FOR THE POPUALTION OF EACH 

INSTALLATION AS THAT DATABASE IS ACCESSED. ALL 

THE INFORMATION IS COLLATED AND APPENDED TO THE 

* ARCHIVES DATABASE FILE. 

* Input File : ALL .DBF FILES 

* Output File : ARCHIVES.DBF 

* Called By : | INFOANNUAL.PRG 

* Calls : NONE 

* Variables 

* Local : MURDERCNT,MANCOUNT,RAPECOUNT,ARAPECOUNT 
ARMEDCOUNT,OTHERCOUNT,ASSLTCOUNT,OTWPNCOUNT 
SIMPLCOUNT,ENTRYCOUNT,TRYCOUNT,DODCOUNT 
NDODCOUNT,GOVTHEFT,CIVILTHEFT,AUTOCOUNT 
VANCOUNT,GAUTOCOUNT,NAUTOCOUNT,NARCCOUNT 
SELLCOUNT,SMOKECOUNT,DEALCOUNT,DWIB ASE,DWI 
DUIBASE,DUI,TINDXTOTAL, CHOICE,USER POP,USER ANSR 
USERREPLY,HOMICIDES,FORCERAPE,ROBBERY,ASSAULT, 
BURGLAR Y,LARCENY,AUTOTHEFT,INDEXTOTAL,PROPCRIME, 
DRUGTOTAL,DUITOTAL,DWITOTAL,DWI,DULALCHLTOTAL, 
YEAR 

Global : CURNT YEAR (passed from infoannual.prg) 
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@ 10, 3 CLEAR TO 22,78 
@ 12725754 Compiling раа. 25 
STORE 0 TO 
MURDERCNT,MANCOUNT,RAPECOUNT,ARAPECOUNT,ARMEDCOUNT,OTHERCOUNT 
STORE 0 TO 
ASSLTCOUNT,OTWPNCOUNT,SIMPLCOUNT,ENTRY COUNT, TRYCOUNT,DODCOUNT 
STORE 0 TO NDODCOUNT,GOVTHEFT,CIVILTHEFT,AUTOCOUNT,VANCOUNT,GAUTOCOUNT 
STORE 0 TO NAUTOCOUNT,NARCCOUNT,SELLCOUNT,SMOKECOUNT,DEALCOUNT 
STORE 0 TO DWIBASE,DWI,DUIBASE,DULTINDXTOTAL 
STORE 1 TO CHOICE 
STORE 99999 TO USER_POP 
STORE "N" TO USER_ANSR 
STORE "N" TO USERREPLY 
select a 
use archive 
DO WHILE CHOICE < 21 
DO CASE 
CASE CHOICE =1 
STORE "MCLB ALBANY" TO STATION 
STORE "ALBANY" TO DBF 
CASE CHOICE =2 
STORE "MCLB BARSTOW" TO STATION 
STORE "BARSTOW" TO DBF 
CASE CHOICE =3 
STORE "MCAS BEAUFORT" TO STATION 
STORE "BEAUFORT" TO DBF 
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CASE CHOICE -4 
STORE "CAMP BUTLER" TO STATION 
STORE "BUTLER" TO DBF 

CASE CHOICE 25 
STORE "CHERRY POINT" TO STATION 
STORE "CHERRY" TO DBF 

CASE CHOICE 26 
STORE "MCAS EL TORO" TO STATION 
STORE 'ELTORO' TO DBF 

CASE CHOICE 27 
STORE 'CAMP ELMORE' TO STATION 
STORE "ELMORE" TO DBF 

CASE CHOICE =8 
STORE "HENDERSON HALL” TO STATION 
STORE "HENDRSON" TO DBF 

CASE CHOICE =9 
STORE "MCAS IWAKUNI" TO STATION 
STORE "IW AKUNI" TO DBF 

CASE CHOICE =10 
STORE "MCAS KANEOHE" TO STATION 
STORE "KANEOHE" TO DBF 

CASE CHOICE =11 
STORE "MCB CAMP LEJEUNE" TO STATION 
STORE "LEJEUNE" TO DBF 

CASE CHOICE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
STORE "PI" TO DBF 

CASE CHOICE =13 
STORE "MCB CAMP PENDLETON" TO STATION 
STORE "PENDELTN" TO DBF 

CASE CHOICE =14 
STORE "MCDEC QUANTICO" TO STATION 
STORE "QUANTICO" TO DBF 

CASE CHOICE -15 
STORE "MCRD SAN DIEGO” TO STATION 
STORE "SANDIEGO" TO DBF 

CASE CHOICE =16 
STORE "MCAS TUSTIN" TO STATION 
STORE "TUSTIN" TO DBF 

CASE CHOICE =17 
STORE "MCAGCC TWENTYNINE PALMS" TO STATION 
STORE "STUMPS" TO DBF 

CASE CHOICE =18 
STORE "MCAS YUMA" TO STATION 
STORE "YUMA" TO DBF 

CASE CHOICE =19 
STORE "CAMP SMITH" TO STATION 
STORE "SMITH" TO DBF 

CASE CHOICE =20 
STORE "MCAS NEW RIVER" TO STATION 
STORE "NEWRIVER" TO DBF 


ENDCASE 


DO WHILE USER  ANSR z "N" 
@ 12,23 CLEAR TO 12,70 
@! 10 23 SAYX "PEEASEENTER THE POPULATION FIGURE" 
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Q 14,10 SAY "STATION POULATION YEAR" 
Q 15, 10 SAY "&STATION" 
(9 15,33 GET USER, POP PICTURE "99,999" 
(9 15, 55 SAY CURNT. YEAR PICTURE "9999" 
READ 
@ 20, 18 SAY "HAS THE CORRECT POPULATION COUNT BEEN ENTERED ?" 
@ 21, 38 GET USERREPLY PICTURE "!" 
READ 
IF USERREPLY = "Y" 
USER_ANSR = "Y" 
ELSE 
USER_ANSR = "N" 
ENDIF 
ENDDO WHILE USER, ANSR = "N" 
SELECT B 
USE &DBF 
DO WHILE .NOT. EOF() 
if substr(DATE,4,2) = substr(str(CURNT_YEAR),3,2) 
DO CASE 
CASE (CRIME = "MURDER") 
MURDERCNT = F1 + M->MURDERCNT 
CASE (CRIME = "MANSLAUGHTER") 
MANCOUNT = Fl + MANCOUNT 
CASE (CRIME = "RAPE") 
RAPECOUNT = F1 + RAPECOUUNT 
CASE (CRIME = "ATTEMPTED RAPE") 
ARAPECOUNT = ЕІ + ARAPECOUNT 
CASE (CRIME = "ROBBERY W/FIRE ARM") 
ARMEDCOUNT = F1 + ARMEDCOUNT 
CASE (CRIME = "ROBBERY W/OTHER WEAPON") 
OTHERCOUNT = F1 + OTHERCOUNT 
CASE (CRIME = "ASSAULT W/FIRE ARM") 
ASSLTCOUNT = F1 + ASSLTCOUNT 
CASE (CRIME = "ASSAULT W/OTHER WEAPON") 
OTWPNCOUNT = Fl + OTWPNCOUNT 
CASE (CRIME = "SIMPLE ASSAULT") 
SIMPLCOUNT = F1 + SIMPLCOUNT 
CASE (CRIME = "ENTRY") 
ENTRYCOUNT = Fl + ENTRYCOUNT 
CASE (CRIME = "ATTEMPTED ENTRY") 
TRYCOUNT = Fl + TRYCOUNT 
CASE (CRIME = "GOVT. PROPERTY") 
DODCOUNT = F1 + DODCOUNT 
CASE (CRIME = "NON-GOVT. PROPERTY") 
NDODCOUNT = F1 + NDODCOUNT 
CASE (CRIME = "LARCENY GOVT. PROPERTY") 
GOVTHEFT = F1 + GOVTHEFT 
CASE (CRIME = "LARCENY NON-GOVT. PROPERTY") 
CIVILTHEFT = F1 + CIVILTHEFT 
CASE (CRIME = "AUTO THEFT") 
AUTOCOUNT = F1 + AUTOCOUNT 
CASE (CRIME = "OTHER VEHICLE THEFT") 
VANCOUNT = F1 + VANCOUNT 
CASE (CRIME = "GOVT. VEHICLE") 
GAUTOCOUNT = F1 + GAUTOCOUNT 
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CASE (CRIME = "NON-GOVT. VEHICLE") 
NAUTOCOUNT = F1 + NAUTOCOUNT 
CASE (CRIME = "NARCOTICS USE & POSSESSION") 
NARCCOUNT = F1 + NARCCOUNT 
CASE (CRIME = "NARCOTICS SALE & TRAFFICKING") 
SELLCOUNT = F1 + SELLCOUNT 
CASE (CRIME = "MARIJUANA USE & POSSESSION") 
SMOKECOUNT 4 FI 4 SMOKECOUNT 
CASE (CRIME = "MAJIJUANA SALE ġ TRAFFICKING') 
DEALCOUNT = F1 + DEALCOUNT 
CASE (CRIME = "DWI ON BASE") 
DWIBASE = F1 + DWIBASE 
CASE (CRIME = "DWI OFF BASE") 
DWI = F1 + DWI 
CASE (CRIME = "DUI ON BASE") 
DUIBASE = F1 + DUIBASE 
CASE (CRIME = "DUI OFF BASE") 
DUI = F1 + DUI 
ENDCASE 
ENDIF 
SKIP 
ENDDO WHILE NOT EOF 
store MURDERCNT + MANCOUNT to HOMICIDES 
store RAPECOUNT + ARAPECOUNT to FORCERAPE 
store ARMEDCOUNT 4 OTHERCOUNT to ROBBERV 
store ASSLTCOUNT + OTWPNCOUNT + SIMPLCOUNT to ASSAULT 
store ENTRYCOUNT + TRYCOUNT + DODCOUNT + NDODCOUNT to BURGLARY 
store GOVTHEFT + CIVILTHEFT to LARCENY 
store AUTOCOUNT + VANCOUNT + GAUTOCOUNT + NAUTOCOUNT to AUTOTHEFT 
store HOMICIDES + FORCERAPE + ROBBERY + ASSAULT + BURGLARY + LARCENY ; 
+ AUTOTHEFT to INDEXTOTAL 
store homicides + forcerape + robbery + assault to violent 
store burglary + larceny + autotheft to propcrime 
store narccount + sellcount + smokecount + dealcount to drugtotal 
store duibase + dui to duitotal 
store dwibase + dwi to dwitotal 
store duitotal 4 dwitotal to alcholtoti 
if VAL(substr(" &DATE",4,2)) » 80 
store "19" + subsr( & DATE" 4,2) to year 
else 
store "20" + substr("&DATE",4,2) to year 
endif 
select a 
append blank 
replace station with "&stauon" 
replace homicides with homicides 
replace FORCERAPE with FORCERAPE 
REPLACE ROBBERY WITH ROBBERY 
replace assault with assault 
replace burglary with burglary 
replace larceny with larceny 
replace autotheft with autotheft 
replace narccount with narccount 
replace sellcount with sellcount 
replace smokecount with smokecount 
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replace dealcount with dealcount 

replace dwibase with dwibase 

replace dwi with dwi 

replace duibase with duibase 

replace dui with dui 

replace indextotal with indextotal 

REPLACE VIOLENT WITH VIOLENT 
REPLACE PROPCRIME WITH PROPCRIME 
replace drugtotal with drugtotal 

replace totaldui with DUITOTAL 

replace totaldwi with DWITOTAL 

replace BOOZETOTAL with ALCHOLTOTL 
replace year with year 

replace population with USER, POP 

STORE 20 TO COUNT 

STORE COUNT - CHOICE TO COUNT 

(9 10, 3 CLEAR TO 23, 78 

@ 12, 23 SAY "&STATION is done, only" + STR(COUNT,4) + " to go." 
USER_INDX = CHOICE + 1 

release all except USER* 

CHOICE = USER_INDX 

USER ANSR 2 "N" 

ENDDO WHILE CHOICE « 21 

CLOSE DATABASES 

RELEASE ALL EXCEPT USER* 
RETURN 


12:6 
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* Program : AUDIT.PRG 


* Author : PE. PAQUETTE 
* Date : 2/15/87 
* Purpose : THIS MODULE PROVIDES THE DATABASE ADMINISTRATOR 


WITH AN AUDIT TRAIL OF ACCESSES AND MODIFICATIONS 


ғ TO THE SYSTEM 

* Input File : ACCESS.DBF 

* Output File : UPDATED ACCESS.DBF 
* Called By : | REPORTS.PRG 


“Calis : NONE 
* Variables 
*^ Loeal.: ANS 


* Global : NONE 


ғ Ж ж ж.ж X жал са 
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STORE 0 TO DELAY 

STORE "N" TO ANS 

CLEAR 

(9 0,0 TO 24,79 DOUBLE 

@ 3, 34 SAY "MARINE CORPS" 
4, 2 

6,33 SAY "ACCESS SUMMARY" 
8,0 SAY CHR(204) 

8, 1 TO 8, 78 DOUBLE 

8, 79 SAY CHR(185) 

SE ACCESS 

10,27 SAY "DATE" 
10, 433 SAY "TIME" 
11,5 SAY "USER" 
I5 289AY "OF" 
11, 44 SAY "OF" 
1 
1 
1 
1 
1 


C (&) (&) (&) (&) (B) 


1, 
2,5 $АҮ "МАМЕ" 
2028898)Y "CGESS" 
2, 42 say "ACCESS" 
2. 61 SAY "OPERATIONS" 
LINE = 14 
DO WHILE .NOT. EOFQ 
(à LINE, 5 SAY LOGUSER 
@ LINE, 25 SAY LOGDATE 
@ LINE, 41 SAY LOGTIME 
@ LINE, 63 SAY LOGCHOICEC 
SKIP 
LINE = LINE + 1 
IF LINE = 22 
LINE = 


(&) (&) (&) (&) (&) (&) (&) (6) (в) (6) 


(Q 2328 SAY "PRESS ANY KEY TO CONTINUE" 


READ 
ENDIF 
ENDDO WHILE NOT EOF 
@ 23,28 CLEAR TO 23, 78 
DO WHILE DELA Y « 100 
DELAY = DELAY + 1 
ENDDO WHILE DELAY 


Im 


3 SAY "CRIME STATISTICS REPORTING PROGRAM" 


@ 14, 1 CLEAR TO 22,78 
@ 15,20 SAY "DO YOU DESIRE A PRINTOUT OF THIS REPORT?" 
@ 17,39 GET ANS PICTURE "!" 
READ 
IF ANS ="Y" 
@ 10, 17 CLEAR TO 19,55 
@ 10, 17 TO 18, 55 DOUBLE 
@ 14, 28 SAY "PERPARE PRINTER" 
READ 
SET DEVICE TO PRINT 
@ 0,0 
@ 3, 34 SAY "MARINE CORPS" 
@ 4,23 SAY "CRIME STATISTICS REPORTING PROGRAM" 
6, 33 SAY "ACCESS SUMMARY" 
0, 27 SAY "DATE" 
0, 43 SAY "TIME" 
1,5 SAY "USER" 
1, 28 SAY "OF" 
1, 44 SAY "OF" 
1, 62 SAY "DATABASE" 
2,5 SAY "NAME" 
2, 26 SAY "ACCESS" 
2, 42 say "ACCESS" 
@ 12,61 SAY "OPERATIONS" 
LINE = 14 
GO TOP 
DO WHILE .NOT. EOFO 
IF LINE > 55 
EJECT 
LINE =5 
ENDIF 
@ LINE, 5 SAY LOGUSER 
@ LINE, 25 SAY LOGDATE 
@ LINE, 41 SAY LOGTIME 
@ LINE, 63 SAY LOGCHOICEC 
SKIP 
LINE = LINE + 1 
ENDDO WHILE NOT EOF 
EJECT 
SET DEVICE TO SCREEN 
ENDIF ANS = Y 
(o 23,28 SAY "RETURNING TO MAIN MENU " 
CLOSE ALL DATABASES 
RELEASE ALL EXCEPT USER* 
RETURN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
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* Program : DELETEPRG 


* Author : Р. E. PAQUETTE 
* Date : 11/11/87 
* Bünpese : This program allows the user to delete redundant 


or erroneous records from the database 
* Input File : as specified by user 
* Output File : updated .DBF file 
* Called By : MAON.PRG 


“Са: GETINFO.PRG 
* Variables 
* "Leeal : EXIT, DELAY, 


* Global : NONE 


Y Y Y Y Y 3X X X Y Y кк 
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SHORE NTO EXIT 
DOSMIBBILE EXIT = "N" 
DO GETINFO 
STORE 9 TO CHOICE 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,33 SAY "MARINE CORPS" 
@ 4,22 SAY "CRIME STATISTICS REPORTING PROGRAM" 
SET COLOR TO GR+/R* 
@ 6,22 SAY " SEARCHING DATABASE " 
SET COLOR TO GR+/R,W/R,N 
@ 8,0 SAY CHR(204) 
@ 8,79 SAY CHR(185) 
@ 8,1 TO 8,78 DOUBLE 
@ 10, 26 SAY "INSTALLATION NAME: &STATION" 
@ 12, 26 SAY "DATE OF REPORT: &DATE" 
USE & DBF 
GO TOP 
LOCATE FOR (CRIME = "&CRIME") .AND. (DATE = "& DATE") 
IF NOT. FOUNDO .AND. EOFO 
@ 14, 18 CLEAR TO 18,61 
@ 14, 18 TO 18,61 DOUBLE 
@ 18, 29 SAY °*** NO MATCH FOUND***" 
@ 15,20 SAY "ENSURE A VALID DATE & CRIME WERE ENTERED" 
2? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELA Y < 50 
STORE DELAY + 1 TO DELA Y 
ENDDO WHILE DELAY < 50 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
ELSE 
CLEAR 
@ 1, 1 TO 23, 79 DOUBLE 
@ 5, 1 SAY CHR(199) 
@ 5, 79 SAY CHR(182) 
@ 5,2 TO 5, 78 
B 2,2 22, SAY "INSTALLATION: &STATION" 
(Q 3, 26 SAY "DATE OF REPORT: &DATE" 
@ 4, 20 SAY "CLASSIFICATION OF OFFENSE: &CRIME" 
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SET COLOR TO GR+/R* 
(Q 10, 25 SAY "*** READY FOR DELETION ***" 
SET COLOR TO GR+/R,W/R,N 
@ 12, 25 SAY "1. DELETE MONTYLY REPORT" 
@ 14, 25 SAY "2. DELETE OFFENSE RECORD ONLY" 
@ 16,25SAY "PRESS ANY KEY TO ABORT DELETION" 
@ 18, 37 GET CHOICE PICTURE "9" 
READ 
DO CASE 
CASE CHOICE = 1 
CLEAR 
SET COLOR TO GR+/R* 
@ 12,29 SAY "DELETION IN PROGRESS" 
GO TOP 
DELETE ALL FOR DATE = "& DATE" 
PACK 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
SET COLOR TO GR+/R,W/R,N 
STORE "Y" TO EXIT 
CASE CHOICE = 2 
CLEAR 
SET COLOR TO GR+/R* 
(Q 12, 29 SAY "DELETION IN PROGRESS" 
DELETE ALL FOR (CRIME = "&CRIME") .AND. (DATE="&DATE") 
PACK 
CLOSE DATABASES 
CLEAR ALL except user* 
SET COLOR TO GR+/R,W/R,N 
STORE "Y” TO EXIT 
OTHERWISE 
RELEASE ALL EXCEPT USER* 
CLOSE DATABASES 
STORE "Y" TO EXIT 


ENDCASE 
ENDIF NOT FOUND 
ENDDO WHILE EXIT = "N" 
RETURN 
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* Program : DRUGS.PRG 


* Author : PTE. PAQUETHE 
* Date..: 10/25/87 
* Purpose : THIS MODULE ALLOWS THE USER TO SELECT A 


SPECIFIC DRUG RELATED OFFENSE FOR UPDATING OR 
k EDITING 
* Input File : NONE 
* Output File : NONE 
* Called By.: СЕТІМЕО 


* Calls..: NONE 
* Vanables 
* Locale: LOOP, DELAY, CRIME 


* — Globall..: NONE 


A ee 
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STORE 9 TO LOOP 

STORE " " TO CRIME 

DO WHILE LOOP » 4 

CLEAR 

(2 0,0 TO 24,79 DOUBLE 

@ 3,31 SAY "MARINE CORPS" 

(0 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,27 SAY "DRUG RELATED OFFENSES" 

8,0 SAY CHR(204) 

8,79 SAY CHR(185) 

8,1 TO 8,78 DOUBLE 

IN SN S NARCOTICS/DRUOGS ****" 

1,23 SAY 71. Use & Possession" 

2,23 SAY "2. Sale & Trafficking” 

5,24 SAY "**** MARUUANA ****" 

7,23 SAY "3. Use & Possession" 

8,23 SAY "4. Sale & Trafficking" 

1,14 SAY "ENTER THE NUMBER OF THE CRIME DATA TO BE EDITED” 
23, 35 GET LOOP PICTURE "9" 


@ @ @ (&) (&) (&) (B) (B) (B @ (&) 


Б 
Š 


DO CASE 
CASE LOOP = 1 
STORE "NARCOTICS USE & POSSESSION” TO CRIME 
CASE LOOP = 2 
STORE " NARCOTICS SALE & TRAFFICKING" TO CRIME 
CASE LOOP = 3 
STORE "MARIJUANA USE & POSSESSION” TO CRIME 
CASE LOOP = 4 
STORE "MARIJUANA SALE & TRAFFICKING" TO CRIME 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
?? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY «35 
STORE DELAY + | ТО DELAY 
ENDDO WHILE DELAY «35 


|1 


ENDCASE 
ENDDO 
RETURN 


2 
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* Program : EDIT.PRG 


* Author : P. E. PAQUETTE 

* Date : 11/11/87 

1 Рипрове : This program allows the user to select a 
Ё specific record for editing 


* Input Fue : DBF specified by user 
* Output File : updated .DBF file 
* CaledBy : | MAIN.PRG 


* Galls : GETINFO.PRG 

* Variables 

* Locale: REPEAT, EXIT, DELAY, VERIFY, TF-1 through TF-28 
j TDATE, TCRIME 


* Global: NONE 


% X Y Y X Y X *Y* Io Y Y Y + + 
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STORE "Y" TO REPEAT 
STORE "N" TO EXIT 
DO WHILE EXIT = "№ 
DO GETINFO 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,33 SAY "MARINE CORPS" 
@ 4,22 SAY "CRIME STATISTICS REPORTING PROGRAM" 
SET COLOR TO GR+/R* 
@ 6,22SAY" | SEARCHING DATABASE " 
SET COLOR TO GR«/R,W/R,N 
@ 8,0 SAY CHR(204) 
(9 8,79 SAY CHR(185) 
@ 8,1 TO 8,78 DOUBLE 
@ 10, 26 SAY "INSTALLATION NAME: &STATION" 
(9 12,26 SAY "DATE OF REPORT: &DATE" 
USE &DBF 
SET EXACT ON 
LOCATE FOR (CRIME - "&CRIME") .AND. (DATE = "&DATE") 
IF NOT. FOUNDO .AND. EOFO 
(9 14, 18 CLEAR TO 18,55 
(9 14, 18 TO 18,51. DOUBLE 
(9 18, 29 SAY "*** NO MATCH FOUND***" 
@ 15,20 SAY "ENSURE A VALID DATE & CRIME WERE ENTERED" 
22 CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELAY < 50 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
ELSE 
DO WHILE REPEAT - "Y" 
STORE FI TO TFI 
STORE F2 TO TF2 
STORE F3 TO TF3 
STORE F4 TO TF4 
STORE F5 TO TF5 
STORE F6 TO TF6 
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STORE F9 TO TF9 

STORE F10 TO TF10 

STORE F11 ТО TF11 

STORE F12 TO TF12 

STORE F13 TO TF13 

STORE F14 ТО ТЕ14 

STORE F15 TO TF15 

STORE F16 TO TF16 

STORE F17 TO TF17 

STORE F18 TO TF18 

STORE F19 TO TF19 

STORE F20 TO TF20 

STORE F21 TO TF21 

STORE F22 TO TF22 

STORE F23 TO TF23 

STORE F24 TO TF24 

STORE F25 TO TF25 

STORE F26 TO TF26 

STORE F27 TO TF27 

STORE F28 TO TF28 

STORE DATE TO TDATE 
STORE CRIME TO TCRIME 
CLEAR 

@ 1, 1 TO23,79 DOUBLE 
5, 1 SAY CHR(199) 

5, 79 SAY CHR(182) 

2 TO 5,78 

6 SAY "INSTALLATION: &STATION" 
6 SAY "DATE OF REPORT: &DATE" 
0 SAY "CLASSIFICATION OF OFFENSE: &CRIME" 
0 

7 


? 


5 
2 


ж 


ж 


2 
S 
4,2 
6, 2 SAY "NUMBER OF OFFENSES ON BASE:" 
GET TFI PICTURE 99: 
SAY "OFF BASE:" 
7 GET TF2 PICTURE 99 
2 SAY "NUMBER OF UNFOUNDED FALSE REPORTS ON BASE:" 
45 GET TF3 PICTURE OS: 
50 SAY "OFF BASE:" 


ж 


ч 


` 


3 
3 
4 


~- 


6 
6 
6 
7 


ж” 


ж 


60 СЕТ ТЕ4 РІСТУЕЕ 99 

2 SAY "NUMBER CLEARED BY ARREST:" 
8,28 GET TFS PICTURE '99' 

9, 2 SAY "NUMBER INVESTIGATED BY NIS:" 
9,30 GET TF6 PICTURE '99' 

1,41 SAY "PERPETRATOR VICTIM" 
ИМЕ х 

3, 2 SAY "OTHER SERVICES:" 

4, 2 SAY "DEPENDANTS:" 

5. 2 SAY "DOD CIVILIAN PERSONNEL:" 

6, 2 SAY "MALES:" 

7, 2 SAY "FEMALES:" 

8, 2 SAY "CAUCASIAN:" 

9, 2 SAY "NEGRO:" 

0, 2 SAY "ALL OTHERS:" 

2 

3 

4 


? 


7 
7, 
7 
8 


~- 


, 45 GET TE9 PICTURE ОО: 
,45 GET TF10 PICTURE '99' 
, 45 GET TF11 PICTURE '99' 


(& (& (& @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ (B (B (&) (B (B (g) (B (&) 
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5 495 GET TF12 
6, 45 GET TF13 
7,45 СЕТ ТЕ14 
9, 45 GET TEILS 
ЖАЗ ШЕП ТЕІб 
0,45 GET TF17 
2,61 GET TF18 
, 61 GET TF19 
, 61 GET TF20 
-6I GET TF21 
, Ol GET TF22 


, 61 GET TF24 
, 61 GET TF25 
"61 GET TF26 


РЕТКЕ? 
PICTURET99 
PICTURE T99 
PIC TURE "99 
PICTURE '99' 
PICTURES? 
PICTURES? 
PICTURE '99' 
PICTURE? 
PICTURE '99' 
PICTURE 99: 
PICTURE 9% 
РКЕТПВЕ 99; 
PICTURE 99 
PIGTURE 99: 


1 
1 
1 
1 
1 
2 
1 
13 
14 
15 
16 
17, СІМБЕТ ТЕ23 
18 
19 
20 
21 


, 2 SAY "DRUG INVOLVEMENT:" 

5 GEISTF27 PICTURE 99 

@ 22, 2 SAY "ALCOHOL INVOLVEMENT:" 

@ 22,45 GET TF28 PICTURE '99' 

READ 

STORE "Y" TO VERIFY 

@ 23,24 CLEAR TO 23,51 

@ 23, 24 SAY "ARE ALL ENTRIES CORRECT ?" 

@ 23, 5@iGET VERIFY PICTURE "Y" 

READ 

IF VERIFY = "Y" 
STORE "Y" TO EXIT 
STORE N" TO REPEAT 
REPLACE F1 WITH TF1 
REBBACE FŻ WITH TF2 
REBPEAGE F5 WITH TF3 
REPLACE F4 WITH TF4 
REPLACE F5 WITH TFS 
REPLACE F6 WITH TF6 
REPLACE F9 WITH TF9 
REPLACE F10 WITH TF10 
REPLACE Fill WITH TF11 
REPLACE F12 WITH TF12 
REPLACE F13 WITH TF13 
REPLACE F14 WITH TF14 
REECAGCE F15 WITH TF15 
REPLACE F16 WITH TF16 
REPLACE F17 WITH TF17 
REPLACE F18 WITH TF18 
REPLACE F19 WITH TF19 
REPLACE F20 WITH TF20 
REPLACE F21 WITH TF21 
REDENCET22 WITH TF22 
КЕРГАСЕ Е23 WITH TF23 
REPLACE F24 WITH TF24 
КЕРРАСЕ F25 WITH TF25 
REPLACE F26 WITH TF26 
REPLACE F27 WITH TF27 
REPLACE F28 WITH TF28 
REPLACE DATE WITH TDATE 


(& ( (&) (8 (& (E) (&) () (E) (&) (E) () () (E) (&) (&) ® 


1435 


REPLACE CRIME WITH TCRIME 
EDSE 
STORE "N" TO EXIT 
STORE "Y" TO REPEAT 
ENDIF 
ENDDO WHILE REPEAT z"Y" 
ENDIF NOT FOUND 
ENDDO WHILE EXIT- "N" 
RELEASE ALL EXCEPT USER* 
CLOSE DATABASES 
RETURN 
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* Program : GETINFO.PRG 


* 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 


ж 


Author : PAQUETTE 
Date : 10/10/87 
Purpose : THIS MODULE ALLOWS THE USER TO LOCATE A 


SPECIFIC RECORD FOR UPDATE OR EDITING 
Input File : DETERMINED BY THE VALUE OF USER INPUT 
Output File : DETERMINED BY THE VALUE OF USER INPUT 
Called By : UPDATEPRG, DELETE.PRG 


Calls : INDXCRMS.PRG, ALCOHOL.PRG, DRUGS.PRG 
Variables 
Local: EXIT, CHOICE, STATION, DELAY, DBF, MONTH, 
DATE, VERIFY 
Global : DATE, STATION, CRIME, DBF 


Y и X Y WMV Y Y W Y Y Yf YX W 


жжжхкхжжжкхжхжжкхж жжжжжжжжжжж<жЖжЖжЖжжжЖжЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖК<КККЖЖЖЖЖ жок ККК ККК Ae 


PUBLIC DATE, STATION, CRIME, DBF 
STORE 99 TO CHOICE 

STORE " " TO STATION 
STORE " ` TO DEBIE 

STORE "N" TO EXIT 

STORE 23 TO MONTH 

DO WHILE EXIT = "N" 


DO WHILE choice > 20 

CLEAR 

@ 0,0 TO 24,79 DOUBLE 

@ 3,34 SAY "MARINE CORPS" 

@ 4,23 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,30 SAY "FILE SELECTION MENU" 

@ 8,0 SAY CHR(204) 


@ 10,15 SAY "1. MCLB ALBANY 11. MCB CAMP LEJEUNE" 

@ 11,15 SAY "2. MCLB BARSTOW 12. MCRD PARRIS ISLAND" 
@ 12,15 SAY "3. MCAS BEAUFORT 13. MCB CAMP PENDLETON" 
@ 13,15 SAY "4. CAMP BUTLER 14. MCDEC QUANTICO" 

@ 14,15 SAY "5. MCAS CHERRY POINT 15. MCRD SAN DIEGO" 

@ 15,15 SAY "6. MCAS EL TORO 16. MCAS TUSTIN" 

@ 16,15 SAY "7. CAMP ELMORE 17. MCAGCC 29 PALMS" 

@ 17,15 SAY "8. HENDERSON HALL 18. MCAS YUMA" 

@ 18,15 SAY "9. MCAS IWAKUNI 19. CAMP SMITH" 

@ 19,14 SAY "10. MCAS KANEOHE 20. MCAS NEW RIVER" 


@ 21,20 SAY "SELECT THE STATION YOU WISH TO WORK WITH" 
@ 22,20 SAY " ENTER 99' TO RETURN TO MAIN MENU" 
@ 25.7 GET CHOICE PICTURE "99" 
READ 
DO CASE 
CASE CHOICE =1 
STORE "MCLB ALBANY" TO STATION 
STORE "ALBANY" TO DBF 
CASE'CHOICE z2 
STORE 'MCLB BARSTOW' TO STATION 
STORE 'BARSTOW' TO DBF 
CASE CHOICE -3 
STORE 'MCAS BEAUFORT' TO STATION 
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STORE "BEAUFORT" TO DBF 

CASE CHOICE =4 
STORE "CAMP BUTLER" TO STATION 
STORE "BUTLER" TO DBF 

CASE CHOICE =5 
STORE "CHERRY POINT" TO STATION 
STORE "CHERRY" TO DBF 

CASE CHOICE =6 
STORE "MCAS EL TORO" TO STATION 
STORE "ELTORO" TO DBF 

CASE CHOICE =7 
STORE "CAMP ELMORE" TO STATION 
STORE "ELMORE" TO DBF 

CASE CHOICE =8 
STORE "HENDERSON HALL" TO STATION 
STORE “HENDRSON" TO DBF 

CASE CHOICE =9 
STORE "MCAS IWAKUNI" TO STATION 
STORE 'TWAKUNT' TO DBF 

CASE CHOICE 210 
STORE 'MCAS KANEOHE' TO STATION 
STORE 'KANEOHE' TO DBF 

CASE CHOICE 211 
STORE 'MCB CAMP LEJEUNE' TO STATION 
STORE "LEJEUNE" TO DBF 

CASE CHOICE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
STORE "PI" TO DBF 

CASE CHOICE =13 
STORE "MCB CAMP PENDLETON" TO STATION 
STORE "PENDELTN" TO DBF 

CASE CHOICE =14 
STORE "MCDEC QUANTICO" TO STATION 
STORE "QUANTICO" TO DBF 

CASE CHOICE =15 
STORE "MCRD SAN DIEGO" TO STATION 
STORE "SANDIEGO" TO DBF 

CASE CHOICE =16 
STORE "MCAS TUSTIN" TO STATION 
STORE "TUSTIN" TO DBF 

CASE CHOICE =17 
STORE "MCAGCC TWENTYNINE PALMS" TO STATION 
STORE "STUMPS" TO DBF 

CASE CHOICE 218 
STORE "MCAS YUMA" TO STATION 
STORE "YUMA" TO DBF 

CASE CHOICE =19 
STORE "CAMP SMITH" TO STATION 
STORE "SMITH" TO DBF 

CASE CHOICE 20 
STORE "MCAS NEW RIVER" TO STATION 
STORE "NEWRIVER" TO DBF 

CASE CHOICE - 99 
RETURN 

OTHERWISE 
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@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE” 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
?) CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY « 50 
STORE DELAY «1 TO DELAY 
ENDDO WHILE DELAY « 50 
CHOICE = 99 
ENDCASE 
ENDDO WHILE CHOICE > 20 
STORE "MM/YY" TO DATE 
STORE 23 TO MONTH 
DO WHILE (MONTH « 1) .OR. (MONTH » 12) 
Q 9,01 CLEAR TO 23,78 
@ 14,25 SAY "WHAT IS THE DATE OF THE REPORT" 
@ 15,25 SAY "THAT YOU WISH TO WORK WITH?" 
(9 16,38 GET DATE PICTURE "99/99" 
READ 
MONTH - VAL(SUBSTR(DATE,1,2)) 
IF (MONTH < 1) .OR. (MONTH > 12) 
@ 9,1 CLEAR TO 23,78 
@ 12,18 SAY " SORRY ONLY TWELVE MONTHS IN A YEAR!" 
@ 14,18 SAY "PICK A NUMBER BETWEEN 1 AND 12 INCLUSIVE" 
22 СНЕ(7) 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
ENDIF 
ENDDO WHILE MONTH 
CHOICE = 9 
DO WHILE CHOICE > 3 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS” 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 620 SAY ” CLASSIFICATION OF OFFENSE ” 
@ 8,0 SAY CHR(204) 
8,1 TO 8,78 DOUBLE 


0 
119 SAY " A. CRIMES AGAINST PERSONS" 
2119 SAY " B. CRIMES AGAINST PROPERTY" 
4 


I9MSAY " A. NARCOTICS/DANGEROUS DRUGS" 
MONEY " B. MARIJUANA' 


NOSSAY " В. DWT 


5 

6 

8 

919SAY " A. DUI 

0 

2,8 SAY "CHOSE THE NUMBER OF THE REPORTING CATEGORY FOR THE CRIME 


5 (6 (€) (& (& (€ (B) ( (B (8) ® ® ® 


U 
> 


SET COLOR TO R/R,W/R,N 
@ 23,35 GET? CHOICE PICTURE "9" 
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READ 
SET COLOR TO GR+/R,W/R,N 
DO CASE 
CASE CHOICE = 1 
DO INDXCRMS 
CASE CHOICE = 2 
DO DRUGS 
CASE CHOICE = 3 
DO ALCOHOL 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
?? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
CHOICE = 9 
ENDCASE 
ENDDO WHILE CHOICE > 3 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,28 SAY "VALIDATION OF INPUT" 
@ 8,0 SAY CHR(204) 
@ 8,1 TO 8,78 DOUBLE 
@ 8,79 SAY CHR(185) 
@ 10,7 SAY "THE INFORMATION WHICH YOU HAVE PROVIDED WILL BE USED TO 
SEARCH" 
@ 11,7 SAY "THE CRIME REPORTING STATISTICS DATA BASE. PLEASE CHECK THE" 
@ 12,7 SAY "INFORMATION BELOW TO ENSURE THAT YOUR ENTRIES ARE CORRECT" 
@ 16,26 SAY "INSTALLATION NAME: &STATION" 
@ 18,26 SAY "DATE OF REPORT: &DATE " 
@ 20,26 SAY "SPECIFIC OFFENSE: &CRIME" 
@ 22,26 SAY "ARE ALL ENTRIES CORRECT?” 
STORE "Y" TO VERIFY 
@ 23.37 GET VERIFY PICTURE "!" 


READ 

IF VERIFY = "Y" 
STOREAY T TOEXIT 

ELSE 


STORE "N" TO EXIT 
STORE 99 TO CHOICE 
ENDIF 
ENDDO WHILE EXIT =N 
RETURN 
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* Program : INDXCRMS.PRG 

* Author : B E.PAOUETTE 

* Date : 10/25/87 

* Purpose : THIS MODULE PRESENTS THE USER WITH A LIST OF 
> ALL INDEX CRIMES. IT STORES THE USER'S CHOICE 
я AS THE CRIME STATISTIC WHICH WILL BE UPDATED 


* Input File : NONE 
* Output File : NONE 
““СайейВу: СЕТІМЕО 


* Calls : NONE 
* Variables 
* Locals: LOOP 


* Global : NONE 


Жак ах S XK XX Sy DN 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


STORE 99 TO LOOP 

SPORE " " TO CRIME 
DO WHILE LOOP > 19 

CLEAR 

@ 0,0 TO 24,79 DOUBLE 

@ 3,31 SAY "MARINE CORPS" 

@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,31 SAY "INDEX CRIMES" 

@ 7,0 SAY CHR(204) 

@ 7,79 SAY CHR(185) 

@ 7,1 TO 7,78 DOUBLE 


@ 8, 2 SAY "CRIMES AGAINST PERSONS CRIMES AGTAINST PROPERTY" 
@ 10, 3 SAY "1. Murder 10. Entry" 

@ 11, 3 SAY "2. Manslaughter 11. Attempted Entry” 

@ 12, 3 SAY "3. Rape 12. Govt. Property" 

@ 13, 3 SAY "4. Attempted Rape 13. Non-Govt. Property" 

(Q 14, 3 SAY "5. Robbery w/Fire Arm 14. Larceny of DOD Property" 

@ 15, 3 SAY "6. Robbery w/Other Weapon 15. Larceny of Non-DOD Property" 
@ 16, 3 SAY "7. Assault W/Fire Arm 16. Auto Theft" 

@ 17, 3 SAY "8. Assault w/Other Weapon 17. Other Vehicle Theft" 

@ 18, 3 SAY "9. Simple Assault 18. Govt. Vehicle Theft" 

@ 19, 3 SAY" 19. Non-Govt. Vehicle Theft" 


@ 21, 16 SAY "CHOSE THE NUMBER OF THE CRIME DATA TO BE EDITED" 
SET COLOR TO R/R,W/R,N 
(025, 35 GETEGOP'PICTURE "99" 
READ 
SET COLOR TO GR+/R,W/R,N 
DO CASE 
CASE LOOP = 1 
STORE "MURDER" TO CRIME 
CASE LOOP = 2 
STORE "MANSLAUGHTER" TO CRIME 
CASE LOOP = 3 
STORE "RAPE" TO CRIME 
CASE LOOP = 4 
STORE "ATTEMPTED RAPE" TO CRIME 
CASE LOOP = 5 
STORE 'ROBBERX W/FIRE ARM' TO CRIME 
CASE LOQP - 6 
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STORE 'ROBBERX W/OTHER WEAPON' TO CRIME 
CASE LOOP + 7 
STORE "ASSAULT W/FIRE ARM" TO CRIME 
CASE LOOP = 8 
STORE "ASSAULT W/OTHER WEAPON" TO CRIME 
CASE LOOP = 9 
STORE "SIMPLE ASSAULT" TO CRIME 
CASE LOOP = 10 
STORE "ENTRY" TO CRIME 
CASE LOOP = 11 
STORE "ATTEMPTED ENTRY" TO CRIME 
CASE LOOP z 12 
STORE "GOVT. PROPERTY" TO CRIME 
CASE LOOP = 13 
STORE "NON-GOVT. PROPERTY" TO CRIME 
CASE LOOP = 14 
STORE "LARCENY OF DOD PROPERTY" TO CRIME 
CASE LOOP = 15 
STORE "LARCENY OF NON-DOD PROPERTY" TO CRIME 
CASE LOOP = 16 
STORE "AUTO THEFT" TO CRIME 
CASE LOOP = 17 
STORE "OTHER VEHICLE THEFT" TO CRIME 
CASE LOOP + 18 
STORE "GOVT. VEHICLE" TO CRIME 
CASE LOOP = 19 
STORE "NON-GOVT. VEHICLE" TO CRIME 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
7) СНК(7) 
STORE 1 TO DELAY 
DO WHILE DELAY «35 
STORE DELAY + 1 TO DELA Y 
ENDDO WHILE DELAY <35 
ENDCASE 
ENDDO WHILE LOOP > 19 
RETURN 
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* Program : INFOANNUAL.PRG 

* Author : P. E. PAQUETTE 

* Date : 12/16/86 

* Purpose : THIS PROGRAM GETS THE YEAR OF THE ANNUAL REPORT 
р AND CHECKS TO SEE IF A REPORT ALREADY EXISTS 

* FOR THAT YEAR. IF A REPORT EXISTS, THE USER 

" IS GIVEN THE OPTION OF OVER-WRITING THE REPORT 
Ж ОК EXITING TO THE REPORTS MENU 

* Input Fie : ARCHIVES.DBF 

* Output File : NONE 

* Called By : REPORTS.PRG 

* Calis : ANNUAL.PRG 

* Variables 

* проза: CONTINUE, REPEAT, CONFIRM, CURNT_YEAR 

* Global : 


XX X X X X X X X X X X X X X X 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


STORE "N" TO CONTINUE, REPEAT, CONFIRM 
STORE 1999 TO CURNT YEAR 
CLEAR 
(9 0,0 TO 24,79 DOUBLE 
(9 3,33 SAY "MARINE CORPS" 
(Q 4,222 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,22 SAY " REPORTS GENERATION s 
@ 8,0 SAY CHR(204) 
@ 8,1 TO 8,78 DOUBLE 
@ 8,79 SAY CHR(185) 
D WHILE REPEAT <> "Y" 
@ 10, 3 CLEAR TO 20,78 
@ 12, 21 SAY "What is the year of this annual report?” 
@ 13, 36 GET CURNT_YEAR PICTURE "9999" 
READ 
@ 10, 3 CLEAR TO 20, 78 
@ 12, 24 SAY "Is" + STR(CURNT_YEAR,4) + " the correct year?" 
@ 13, 37 GET CONFIRM PICTURE "!" 
READ 
IF CONFIRM 2 "Y" 
STORE "Y" TO REPEAT 
USE ARCHIVE 
SEMSAPETY OFF 
INDEX ON STATION + STR(YEAR) TO TEMP 
SET SAFETY ON 
LOCATE FOR YEAR = CURNT_YEAR 
IF .NOT. FOUND(O AND EOFQ 
CLOSE DATABASES 
DO ANNUAL 
EESE 
@ 11,1 CLEAR TO 23,78 
SET COLOR TO GR+/* 
@ 10, 34 SAY "WARNING" 
SET COLOR TO GR+/R,W/R,R/N 
(9 12, 17 SAY "AN ANNUAL REPORT FOR "+STR(CURNT_YEAR,4)+" ALREADY EXISTS 
i" 
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@ 14, 11 SAY "THE ANNUAL REPORT SHOULD BE COMPILED ONLY ONE TIME. IF 

RUN" 
(9 15, 11 SAY "MORE THAN ONCE FOR A CALENDAR YEAR, THE DATABASE WILL BE" 
@ 16, 11 SAY "UPDATED WITH THE NEW INFORMATION. DO YOU WANT TO 

CONTINUE?" 

(2 18, 37 GET CONTINUE PICTURE "Y" 

READ 


IF CONTINUE = "Ү" 
DELETE ALL FOR YEAR = CURNT_YEAR 
PACK 
CLOSE DATABASES 
DO ANNUAL 
BESE 
CLOSE DATABASES 
ENDIF 
ENDIF 
EINDIE 
ENDDO WHILE REPEAT <> "Y" 
RETURN 
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* Program : INIT.PRG * 
* Author : R. E. PAQUETTE б 
* Date : 10/10/87 ^ 
""Puspose . THIS MODULE SETS THE DBASE PARAMETERS WHICH WILL e 
+ DEFINE THE OPERATING ENVIRONMENT OF THE PROGRAM б 
*"gputFilee : NONE Қ 
* Output File : NONE » 
* CalldBy : MAIN.PRG t 
з“Сашв : NONE Ё 
* Variables * 
* Leeal : NONE j 
* Global : NONE * 
< >K ak < K oic oie cie IC EIC oC oc o oic R oic oe cie cic ole cic oe oic Kk K K 2k K 2k K K K oie cie cic ofc oc oic oc oie oic oic oie oic oic oc oc oc cie ofc cie oie cie oie oc oic oj ok oic 2c ode ie ie Sk KC cde cie 3k 5 5 k k k k k 5k КК КК К >e ke 
CLOSE DATABASES 

RELEASE ALL EXCEPT USER* 


*SET ESCAPE OFF WHEN PROGRAM IS DEBUGGED 
SET SAFETY OEF 

SET BELL OFF 

SET STATUS OFF 

SET COLOR TO GR+/R,W/R,N 
SET SCOREBOARD OFF 

SET TALK OFF 

SET PONGTION 2 TO ";" 
SEONG TION 3°TO ";" 

SET FUNCTION 4 TO ";" 

SET FUNCTION 5 TO ";" 

SE] FONCTION 6 TO";" 

SE T PONGTHION 7 TO ";" 

SET FUNCTION 8 TO ";" 

SET FUNCTION 9 TO ";" 

SET FUNCTION 10 TO ";" 
RETURN 
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* Program : LOG.PRG 

* Author : P. E. PAQUETTE 

* Вази: 02/29/88 

* Purpose : THIS MODULE RECORDS THE ACCESSES TO THE SYSTEM 
z AS A MEANS OF PROVIDING AN AUDIT TRAIL OF 

5 TRANSACTIONS ON THE SYSTEM 


* Input File : ACCESS.DBF 
* Output File : UPDATED ACCESS.DBF 
* Called By : MAIN.PRG 


* Calls : NONE 
* Variables 
* Locale NONE 


* Global : NONE 


X 34 X YX Y Y X X X X Y OR X 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


изе АССЕ55 
append blank 
tempchoice — ' 
replace logtime with time() 
replace logdate with date() 
replace loguser with username 
replace logunit with userunit 
replace logchoice with choice 
do case 
CASE CHOICE = 1 
tempchoice = UPDATE 
CASE CHOICE = 2 
tempchoice = ‘EDIT’ 
CASE CHOICE = 3 
tempchoice = 'DELETE' 
CASE CHOICE = 4 
tempchoice 2 REPORTS' 
CASE CHOICE = 5 
tempchoice = 'QUIT' 
endcase 
replace logchoicec with tempchoice 
close databases 
retum 
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* Program : MAIN.PRG 

* Author : P. E. PAQUETTE 

* Date : 05/25/87 

* Purpose : THIS MODULE PRESENTS THE USER WITH A MENU OF 
ж 


ж 
ж 
ж 
ж 
ж 
ж 
ж 


ж 


ALL OF THE REPORTS AVAILABLE. IT CONTROLS 
THE EXECUTION OF ALL SUBORDINATE PROGRAMS 


Input File : NONE 
Output File : NONE 
Called By : | SECURITY 


Calls : UPDATE, EDIT, DELETE, REPORTS, INIT 
Variables 
Local: EXIT, CHOICE, DELAY 


Global : NONE 


ra DY Da aaa 
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DO INIT 

DO SECURITY 
STORES TO EXIT 
DO WHILE EXIT » 5 


CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 


@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 


@ 6,32 SAY "MAIN MENU” 
@ 8,0 SAY CHR(204) 
@ 8,79 SAY CHR(185) 
@ 8,1 TO 8,78 DOUBLE 
@ 10,27 SAY [1. UPDATE RECORDS] 
@ 11,27 SAY (2. EDIT RECORDS] 
@ 12,27 SAY [3. DELETE RECORDS] 
@ 13,27 SAY [4. GENERATE REPORTS] 
(9 14,27 SAY (5. QUIT] 
STORE 0 TO CHOICE 
(9 1828 SAY "PLEASE ENTER A NUMBER" 
(9 18,54 GET CHOICE PICTURE "9" 
READ 
DO LOG 
DO CASE 
CASE CHOICE = 1 
DO UPDATE 
CASE CHOICE = 2 
DO EDIT 
CASE CHOICE = 3 
DO DELETE 
CASE CHOICE = 4 
DO REPORTS 
CASE CHOICE = 5 
QUIT 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
2? CHR(7) 
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STORE 1 TO DELAY 
DO WHILE DELAY « 35 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELAY <35 
ENDCASE 
ENDDO WHILE EXIT > 5 
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* Program : 
* Author : 
* Date : 


* Purpose : 
ж 


ж 


ж 


* [nput File 


* Output File : 


* Called By : 
* (байс: 

* Variables 

“» Local: 


Y Y Y # M ч ә Y % 9 


Global : 


MONTHLY 

Dus: PAGUETIE 

12/19/87 

THIS PROGRAM ALLOWS THE USER TO VETW ANY MONTHLY 
REPORT STORED IN THE DATABASE FILES. IT ALSO 
ALLOWS THE USER TO GET A HARDCOPY OF THE REPORT 
IF DESIRED. 

DBF (as chosen by the user) 

NONE 

REPORTS 

NONE 


MURDERCNT,MANCOUNT,RAPECOUNT,ARAPECOUNT 
ARMEDCOUNT,OTHERCOUNT,ASSLTCOUNT,OTWPNCOUNT 
SIMPLCOUNT,ENTRYCOUNT,TRYCOUNT,DODCOUNT 
NDODCOUNT,GOVTHEFT,CIVILTHEFT,AUTOCOUNT 
VANCOUNT,GAUTOCOUNT,NAUTOCOUNT,NARCCOUNT 
SELLCOUNT,SMOKECOUNT,DEALCOUNT,DWIBASE,DWI 
DUIBASE,DUI,TINDXTOTAL,CHOICE,STATION, DBF, EXIT 
ANS WER,MONTH,VERIFY ,DDELAY,HOMICIDE,FORCERAPE 
ROBBERY,ASSAULT,BURGLARY,LARCENY,AUTOTHEFT 
NDEXTOTAL,VIOLENT,PROPCRIME,DRUGTOTAL,DUITOTAL 
DWITOTAL,ALCHLTOTAL,CENTER 

NONE 


X Y WY Y Y + Y WY Y WY WMV XY X X Y Y W X X W W W X 
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STORE 0 TO 


MURDERCNT,MANCOUNT,RAPECOUNT,ARAPECOUNT,ARMEDCOUNT,OTHERCOUNT 


STORE 0 TO 


ASSLTCOUNT,OTWPNCOUNT,SIMPLCOUNT,ENTRYCOUNT,TRYCOUNT,DODCOUNT 


STORE 0 TO NDODCOUNT,GOVTHEFT,CIVILTHEFT,AUTOCOUNT, VANCOUNT, GAUTOCOUNT 


STORE 0 TO NAUTOCOUNT,NARCCOUNT,SELLCOUNT,SMOKECOUNT,DEALCOUNT 


STORE 0 TO DWIBASE,DWI,DUIBASE,DULTINDXTOTAL 


STORE 99 TO CHOICE 
STORE " "ТО STATION 
STORE ' "TO DBF 


STORE "N" TO EXIT 
STORE "Y" TO VERIFY 
STORE "N" TO ANSWER 
STORE 23 TO MONTH 


DO WHILE EXIT 2"N" 
DO WHILE CHOICE » 20 


CLEAR 


(9 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 


@ 6,20 SAY " 


INSTALLATION MENU" 


@ 8,0 SAY CHR(204) 

@ 8,79 SAY CHR(185) 

@ 8,1 TO 8,78 DOUBLE 

@ 10,15 SAY "1. MCLB ALBANY 11. MCB CAMP LEJEUNE" 

@ 11,15 SAY "2. MCLB BARSTOW 12. MCRD PARRIS ISLAND" 
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@ 12,15 SAY "3. MCAS BEAUFORT 13. MCB CAMP PENDLETON" 
@ 13,15 SAY "4. CAMP BUTLER 14. MCDEC QUANTICO" 
@ 14,15 SAY "5. MCAS CHERRY POINT 15. MCRD SAN DIEGO" 
@ 15,15 SAY "6. MCAS EL TORO 16. MCAS TUSTIN" 
@ 16,15 SAY "7. CAMP ELMORE 17. MCAGCC 29 PALMS" 
@ 17,15 SAY "8. HENDERSON HALL 18. MCAS YUMA" 
@ 18,15 SAY "9. MCAS IWAKUNI 19. CAMP SMITH" 
@ 19,14 SAY "10. MCAS KANEOHE 20. MCAS NEW RIVER" 
@ 21,18 SAY "SELECT THE STATION YOU WISH TO VIEW" 
@ 22,24 SAY "PLEASE ENTER A NUMBER" 
@ 22,46 GET CHOICE PICTURE "99" 
READ 
DO CASE 
CASE CHOICE =1 
STORE "MCLB ALBANY" TO STATION 
STORE "ALBANY" TO DBF 
CASE CHOICE =2 
STORE "MCLB BARSTOW" TO STATION 
STORE "BARSTOW" TO DBF 
CASE CHOICE =3 
STORE "MCAS BEAUFORT" TO STATION 
STORE "BEAUFORT" TO DBF 
CASE CHOICE =4 
STORE "CAMP BUTLER" TO STATION 
STORE "BUTLER" TO DBF 
CASE CHOICE z5 
STORE "CHERRY POINT" TO STATION 
STORE "CHERRY" TO DBF 
CASE CHOICE 26 
STORE "MCAS EL TORO" TO STATION 
STORE 'ELTORO' TO DBF 
CASE CHOICE =7 
STORE "CAMP ELMORE" TO STATION 
STORE 'ELMORE' TO DBF 
CASE CHOICE 28 
STORE 'HENDERSON HALL' TO STATION 
STORE 'HENDRSON' TO DBF 
CASE CHOICE 29 
STORE 'MCAS IWAKUNT' TO STATION 
STORE 'TWAKUNT' TO DBF 
CASE CHOICE 210 
STORE 'MCAS KANEOHE' TO STATION 
STORE 'KANEOHE' TO DBF 
CASE CHOICE 211 
STORE 'MCB CAMP LEJEUNE' TO STATION 
STORE "LEJEUNE" TO DBF 
CASE CHOICE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
STORE "PI" TO DBF 
CASE CHOICE =13 
STORE "MCB CAMP PENDLETON" TO STATION 
STORE "PENDELTN" TO DBF 
CASE CHOICE =14 
STORE "MCDEC QUANTICO" TO STATION 
STORE "QUANTICO" TO DBF 
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CASE CHOICE 215 
STORE 'MCRD SAN DIEGO' TO STATION 
STORE 'SANDIEGO' TO DBF 

CASE CHOICE -16 
STORE "MCAS TUSTIN" TO STATION 
STORE 'TUSTIN' TO DBF 

CASE CHOICE -17 
STORE 'MCAGCC TWENTVNINE PALMS' TO STATION 
STORE 'STUMPS' TO DBF 

CASE CHOICE -18 
STORE "MCAS YUMA" TO STATION 
STORE "YUMA" TO DBF 

CASE CHOICE =19 
STORE "CAMP SMITH” TO STATION 
STORE "SMITH" TO DBF 

CASE CHOICE =20 
STORE "MCAS NEW RIVER" TO STATION 
STORE "NEWRIVER” TO DBF 

OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE” 
@ 15,25 SAY "ENTER A NUMBER LISTED” 
7 CHR(7) 

STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
CHOICE = 99 
ENDCASE 

ENDDO WHILE CHOICE > 20 

DO WHILE (MONTH < 1) .OR. (MONTH > 12) 

STORE "MM/YY" TO DATE 

@ 10,01 CLEAR TO 23,78 

Q 1425 SAY "WHAT IS THE DATE OF THE" 

Q 1525 SAY "REPORT TO BE COMPILED ?" 

@ 16,34 GET DATE PICTURE "99/99" 

READ 
MONTH = VAL(SUBSTR(DATE, 1,2)) 
IF (MONTH < 1) .OR. (MONTH > 12) 
@ 10,01 CLEAR TO 23,78 
@ 14,21 SAY "THERE ARE ONLY 12 MONTHS IN A YEAR !" 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
ENDIF 
ENDDO WHILE MONTH 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,28 SAY "VALIDATION OF INPUT” 
@ 8,0 SAY CHR(204) 
@ 8,1 TO 8,78 DOUBLE 


ШЕЛІ 


(Q 8,79 SAY CHR(185) 

(9 10,7 SAY "THE INFORMATION WHICH YOU HAVE PROVIDED WILL BE USED TO 
SEARCH" 

@ 11,7 SAY "THE CRIME REPORTING STATISTICS DATA BASE. PLEASE CHECK THE" 

(9 12,7 SAY "INFORMATION BELOW TO ENSURE THAT YOUR ENTRIES ARE CORRECT" 

@ 16,26 SAY "INSTALLATION NAME: &STATION" 

@ 18,26 SAY "DATE OF REPORT: &DATE " 

@ 22,26 SAY "ARE ALL ENTRIES CORRECT?" 

STORE "Y" TO VERIFY 

@ 23,37 GET VERIFY PICTURE "!" 


READ 

IF VERIFY = "Y" 
STORE "Y" TO EXIT 

ELSE 


STORE "N" TO EXIT 
STORE 99 TO CHOICE 
ENDIF 
ENDDO WHILE EXIT = N 


@ 10,2 CLEAR TO 23,78 

SET COLOR TO GR+/* 

(9 14,34 SAY "Thinking..." 
SET COLOR TO GR-/R,W/R,N 
SELECT B 

USE &DBF 

GOTOP 


DO WHILE .NOT. EOFO 
if substr(DATE,4,2) = substr("&DATE",4,2) 
DO CASE 

CASE (CRIME = "MURDER") 
MURDERCNT = Fl + M->MURDERCNT 

CASE (CRIME = "MANSLAUGHTER") 
MANCOUNT = F1 + MANCOUNT 

CASE (CRIME = "RAPE") 
RAPECOUNT = Fl + RAPECOUNT 

CASE (CRIME = "ATTEMPTED RAPE") 
ARAPECOUNT = F1 + ARAPECOUNT 

CASE (CRIME = "ROBBERY W/FIRE ARM") 
ARMEDCOUNT = F1 + ARMEDCOUNT 

CASE (CRIME = "ROBBERY W/OTHER WEAPON") 
OTHERCOUNT = F1 + OTHERCOUNT 

CASE (CRIME = "ASSAULT W/FIRE ARM") 
ASSLTCOUNT = F1 + ASSLTCOUNT 

CASE (CRIME = "ASSAULT W/OTHER WEAPON") 
OTWPNCOUNT = Fl + OTWPNCOUNT 

CASE (CRIME = "SIMPLE ASSAULT") 
SIMPLCOUNT = F1 + SIMPLCOUNT 

CASE (CRIME = "ENTRY") 
ENTRYCOUNT = Fl + ENTRYCOUNT 

CASE (CRIME = "ATTEMPTED ENTRY") 
TRYCOUNT = Fl + TRYCOUNT 

CASE (CRIME = "GOVT. PROPERTY") 
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DODCOUNT = F1 + DODCOUNT 
CASE (CRIME = "NON-GOVT. PROPERTY") 
NDODCOUNT = F1 + NDODCOUNT 
CASE (CRIME = "LARCENY GOVT. PROPERTY") 
GOVTHEFT = F1 + GOVTHEFT 
CASE (CRIME = "LARCENY NON-GOVT. PROPERTY") 
CIVILTHEFT = F1 + CIVILTHEFT 
CASE (CRIME = "AUTO THEFT") 
AUTOCOUNT = F1 + AUTOCOUNT 
CASE (CRIME = "OTHER VEHICLE THEFT") 
VANCOUNT = F1 + VANCOUNT 
CASE (CRIME = "GOVT. VEHICLE") 
GAUTOCOUNT - F1 + GAUTOCOUNT 
CASE (CRIME = "NON-GOVT. VEHICLE") 
NAUTOCOUNT = FI + NAUTOCOUNT 
CASE (CRIME = "NARCOTICS USE & POSSESSION") 
NARCCOUNT = F1 + NARCCOUNT 
CASE (CRIME = "NARCOTICS SALE & TRAFFICKING") 
SELLCOUNT = F1 + SELLCOUNT 
CASE (CRIME = "MARIJUANA USE & POSSESSION") 
SMOKECOUNT = F1 + SMOKECOUNT 
CASE (CRIME z "MAJUUANA SALE & TRAFFICKING") 
DEALCOUNT = ЕІ + DEALCOUNT 
CASE (CRIME = "DWI ON BASE") 
DWIBASE = F1 + DWIBASE 
CASE (CRIME = "DWI OFF BASE") 
DWI = F1 + DWI 
CASE (CRIME = "DUI ON BASE") 
DUIBASE = F1 + DUIBASE 
CASE (CRIME = "DUI OFF BASE") 
DUI s F1 + DUI 
ENDCASE 
else 
?? "could not locate record" 
endif 
skip 
ENDDO WHILE NOT EOF 


store MURDERCNT + MANCOUNT to HOMICIDES 

store RAPECOUNT + ARAPECOUNT to FORCERAPE 

store ARMEDCOUNT + OTHERCOUNT to ROBBERY 

store ASSLTCOUNT + OTWPNCOUNT to ASSAULT 

store ENTRYCOUNT + TRYCOUNT + DODCOUNT + NDODCOUNT to BURGLARY 

store GOVTHEFT + CIVILTHEFT to LARCENY 

store AUTOCOUNT + VANCOUNT + GAUTOCOUNT + NAUTOCOUNT to AUTOTHEFT 

store HOMICIDES + FORCERAPE + ROBBERY + ASSAULT + BURGLARY + LARCENY ; 
+ AUTOTHEFT to INDEXTOTAL 

store homicides + forcerape + robbery + assault to violent 

store burglary + larceny + autotheft to propcrime 

store narccount + sellcount + smokecount + dealcount to drugtotal 

store duibase + dui to duitotal 

store dwibase + dwi to dwitotal 

store duitotal + dwitotal to alcholtou 

CLEAR 
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STORE (80-LEN(" &STATION"))2 TO CENTER 
© 0,0 TO 24,79 DOUBLE 
(9 3,CENTER SAY "&STATION" 
@ 4,32 SAY "MONTHLY SUMMARY" 
@ 5,38 SAY "FOR" 
@ 6,37 SAY "&DATE" 
@ 8,0 SAY CHR(204) 
8,79 SAY CHR(185) 
8,1 TO 8,78 DOUBLE 
10,5 SAY "I. INDEX CRIMES" 
11, S SAY" A. CRIMES AGAINST PERSONS" 
12.5 SA: 1. MURDER' 
12, 45 SAY HOMICIDES 
13,5 SAY " 2. RAPE" 
13, 45 SAY FORCERAPE 
СУУ: 3. ВОВВЕВҮ" 
14,45 SAY ROBBERY 
15.5 ESAV S 4. AGGREVATED ASSUALT" 
15,45 SAY ASSAULT 
17,5 SAY" B. CRIMES AGAINST PROPERTY" 
18,5 5АҮ" 1. BURGLARY/HOUSEBREAKING" 
18, 45 SAY BURGLARY 
19,5 SAY " 2. LARCENY" 
19,45 SAY LARCENY 
0,5 SAY " 3. MOTOR VEHICLE THEFT" 
0,45 SAY AUTOTHEFT 


2 
2 
23, 25 SAY "PRESS ANY KEY TO CONTINUE" 
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10,2 CLEAR TO 23,78 

10,5 SAY "II. DRUG RELATED OFFENSES" 

1 SAY" A. NARCOTICS/DANGEROUS DRUGS" 
12 SAY " 1. Use & Possession" 

12,45 SAY NARCCOUNT 

13,5 SAri 2. Sale & Trafficking" 

13,45 SAY SELLCOUNT 
15 
16 
16 
17 
17 
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‚5 5ЗАҮ" B. MARIJUANA" 
,5 SAY " 1. Use & Possession" 
,45 SAV SMOKECOUNT 
,5 SAY" 2. Sale & Trafficking" 
,45 SAY DEALCOUNT 
23,25 SAY "PRESS ANY KEY TO CONTINUE" 


®®®®®®®®®®®®® m9 
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10,2 CLEAR TO 23,78 
10,5 SAY "III. ALCOHOL RELATED OFFENSES" 
11,5 SAY" A. DWI (+.10 BAC)" 
12,5 SAY " 1. DWI ON BASE" 
12,45 SAY DWIBASE 
13,5 SAY" 2. DWI OFF BASE” 
13,45 SAY DWI 

15,5 SAY" B. DUI (.05 -.09 BAC)" 

@ 16,5 SAY" 1. DUI ON BASE" 

@ 16,45 SAY DUIBASE 

@ 17,5 SAY" 2. DUI OFF BASE" 

@ 17,45 SAY DUI 

(B 22,20 SAY "WOULD YOU LIKE A PRINTOUT OF THIS REPORT ?" 


®®®®®®®® а 


154 


@ 23,39 GET ANSWER PICTURE "!" 
READ 


IF ANSWER o "Y" 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
ELSE 
(2 10,2 CLEAR TO 23,78 
2 СНЕ(7) 
@ 14,27 SAY "PREPARE TO PRINTER TO PRINT" 
walt 
@ 0,0 
SET DEVICE TO PRINT 
@ 3,31 SAY "MARINE CORPS" 
(0 4,220 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 5,20 SAY" MONTHLY SUMMARY" 
@ 8,5 SAY "INSTALLATION: "+"&STATION" 
@ 8,49 SAY "DATE OF REPORT: "+"&DATE" 
11, 5 SAY "I. INDEX CRIMES" 
12,5 SAY" A. CRIMES AGAINST PERSONS" 
13 5 SAY" 1. MURDER" 
13, 45 SAY HOMICIDES 
14,5 SAY " 2. RAPE" 
14, 45 SAY FORCERAPE 
85,5 SAY" 3. ROBBERY" 
15, 45 SAY ROBBERY 
16,5 SAY " 4. AGGREVATED ASSUALT" 
1 
1 
1 
1 
2 


` 


,45 SAY ASSAULT 

,9 SAY" B. CRIMES AGAINST PROPERTY" 
a SAY” 1. BURGLARY/HOUSEBREAKING" 
, 45 SAY BURGLARY 

5 sue " 2. LARCENY" 

,45 SAY LARCENY 

20,5 SAY” 3. MOTOR VEHICLE THEFT" 

20, 45 SAY AUTOTHEFT 


1 
1 


ж 


- 


3 

3 

4 

4 

5 

5 

6 

6 

7 

8 

8 

9 

9 

0 

0 

22,4 SAY "II. DRUG RELATED OFFENSES" 

23,5 SAY" A. NARCOTICS/DANGEROUS DRUGS" 
4,5 SAY " 1. Use & Possession" 

24,45 SAY NARCCOUNT 

25 5 SAY " 2. Sale & Trafficking” 

25,45 SAY SELLCOUNT 

26,5 SAY" B. MARIJUANA” 

27, 5 SAY " ]. Use & Possession" 

27,45 SAY SMOKECOUNT 

28,5 SAY ” 2. Sale & Trafficking" 

28,45 SAY DEALCOUNT 

303 SAY "III. ALCOHOL RELATED OFFENSES" 

31,3 SAY” A. DWI (+.10 BAC)" 

323 SAY” 1. DWI ON BASE" 

32,45 SAY DWIBASE 

333 SAY " 2. DWI OFF BASE" 

33,45 SAY DWI 

34,3 SAY " B. DUI (.05 -.09 BAC)" 

35,3 SAY ” 1. DUI ON BASE" 


DOREEN 
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(9 35,45 SAY DUIBASE 
(9363 SAY" 2. DUI OFF BASE" 
@ 36,45 SAY DUI 
@ 41,9 SAY "TOTAL INDEX CRIMES" 
@ 41,45 SAY INDEXTOTAL 
@ 42,9 SAY "TOTAL DRUG RELATED OFFENSES" 
@ 42,45 SAY DRUGTOTAL 
(9 439 SAY "TOTAL ALCOHOL RELATED DRIVING OFFENSES" 
@ 43,45 SAY ALCHOLTOTL 
EJECT 
SET DEVICE TO SCREEN 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
ENDIF 
RETURN 
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* Program : MAIN PRINT PROGRAM (PRINT.PRG) 


* Author : P. E. PAQUETTE 
* Date : 1/8/88 
* Purpose : THIS PROGRAM CONTROLS ALL OF THE PRINT MODULES 


WHICH PRODUCE THE YEARLY REPORT. 
* Input File : NONE 
* Output File : NONE 
* CalledBv :  MAINPRG 


* Calls : PRINT1, PRINT2, PRINTS, PRINT4 
* Variables 
* Local : ANS, CURNT_YEAR, LAST_YEAR, CONFIRM, REPEAT 


= Global : NONE 


N Ү «Зе M M N sk 0 и + 
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CLEAR 

STORE "N" TO ANS,CONFIRM,REPEAT 

STORE 1987 TO CURNT. YEAR 

@ 0,0 TO 24,79 DOUBLE 

@ 3,31 SAY "MARINE CORPS" 

@ 4.20 SAY "CRIME STATISTICS REPORTING PROGRAM" 

(9 620 SAY " REPORTS GENERATION" 

@ 8.0 SAX CHR(204) 

8,1 TO 8,78 DOUBLE 

@ 8,79 SAY CHR(185) 

10, 5 SAY " This program is designed for use with a standard dot matrix" 
@ 11, 5 SAY "printer. It is configured to use continuous form feed paper with" 
12, 35 SAY " а least 80 columns. Please ensure that the printer is ready го" 
@ 13, 
1 


МӘН 


5,17 SAY "Are you ready to proceed with the print job?" 
(9 16, 537 GET ANS PICTURE "!'" 
READ 
F ANS œo "ү" 
RETURN 
ELSE 
DO WHILE REPEAT o "Y" 
@ 10, 3 CLEAR TO 20,78 
B 12,21 SAY “What ts the year of this annual report?" 
(B 13, 36 GET CURNT_YEAR PICTURE "9999" 
READ 
STORE (CURNT YEAR - 1) TOLAST YEAR 
@ 10, 3 CLEAR TO 20, 78 
@ 12, 24 SAY "Is" - STR(CURNT YEAR,4) + " ше correct year?" 
@ 13, 37 GET CONFIRM PICTURE "'" 
READ 
IF CONFIRM = "Y" 
STORE "Y" TO REPEAT 
USE ARCHIVE 
INDEX ON STATION + STR(YEAR) TO TEMP 
LOCATE FOR YEAR = CURNT_YEAR 
IF NOT. FOUNDO .AND. EOFO 
@ 9, 2 CLEAR TO 23,78 
@ 12.28 SAY "NO REPORT EXISTS FOR " + STR(CURNT_YEAR,-) 


@ 13.18 SAY "TRY THE COMPILE’ OPTION IN THE REPORTS MENU" 


ELSE 
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DO PRINTI 

DO PRINT2 

DO PRINT3 

DO PRINT4 

ENDIF NOT FOUND 
ENDIF CONFIRM «» "Y" 
ENDDO WHILE REPEAT «» "Y" 

ENDIF ANS o "Y" 
ERASE TEMP 
CLOSE DATABASES 
RELEASE ALL EXCEPT USER* 
RETURN 


158 


жжжжж жж ж жж ж жж жж ж жж ж ж жж ж жж ж жж жож жож жж жож ж жож ж жож ж жж жж жж ж жж жож жж жж жож жж жж ж жж ж жж жж жжжжжжжҗжжжжжжжж 


* Program : FIRST PRINT MODULE (PRINTI.PRG) 


* Author : P. E. PAQUETTE 

* Date : 1/8/88 

* Purpose : THIS MODULE WILL PRINT ALL THE CRIME 
ж 


ж 


ж 


NFORMATION IN THE TWO COLUMN FORMAT AS WELL 
AS CALCULATING THE TOTALS AND PERCENT CHANGE 
BETWEEN THE YEARS 


* Input File : ARCHIVE.DBF 
* Output File : NONE 
* Called By : PRINT 


* Calls : NONE 
* Variables 
* leal : TEMP. YEAR, LAST. YEAR, HEADING, YR, TOTAL, 


* 
ж 


ж 


LYR, TOTAL, COUNT, PLACE, CRIME, CENTER, PLACE 
STATION, TEMPI, TEMP2, PERCNTCHG 
Global ; NONE 


4X Y Y Y Y XY XY Y Y X X X Y Y Y + 
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@ 10,3 clear to 22,78 

SET COLOR TO GR+/* 

ШІЛ ФРттпапр........................ 8 
SET COLOR TO GR+/R,W/R,N 

STORE SPACE(62) TO HEADING 
STORE 0 TO YR_TOTAL,LYR_TOTAL 
SPORE | TO COUNT,PLACE 

SET SAFETY OFF 

SET DEVICE TO PRINT 

DO WHILE COUNT < 15 


DO CASE 


CASE COUNT =1 
STORE "INDEX CRIMES REPORTED TO HQMC" TO HEADING 
STORE "INDEXTOTAL" TO CRIME 

CASE COUNT 2 
STORE "HOMICIDES REPORTED TO HQMC" TO HEADING 
STORE "HOMICIDES" TO CRIME 

CASE COUNT 23 
STORE "FORCIBLE RAPES REPORTED TO HQMC" TO HEADING 
STORE "FORCERAPE" TO CRIME 

CASE COUNT z4 
STORE "ROBBERY CRIMES REPORTED TO HQMC" TO HEADING 
STORE "ROBBERY" TO CRIME 

CASE COUNT =5 
STORE "AGGRAVATED ASSAULTS REPORTED TO HQMC" TO HEADING 
STORE "ASSAULT" TO CRIME 

CASE COUNT =6 
STORE "CRIMES AGAINST PROPERTY REPORTED TO HQMC" TO HEADING 
STORE "PROPCRIME" TO CRIME 

CASE COUNT z7 
STORE "BURGLARY COMPLAINTS REPORTED TO HQMC" TO HEADING 
STORE “BURGLARY” TO CRIME 

CASE COUNT =8 
STORE "LARCENY COMPLAINTS REPORTED TO HQMC" TO HEADING 
STORE "LARCENY" TO CRIME 

CASE COUNT =9 


INT) 


STORE "MOTOR VEHICLE THEFTS REPORTED TO HQMC" TO HEADING 
STORE 'AUTOTHEFT' TO CRIME 
CASE COUNT 210 
STORE "DRUG RELATED OFFENSES REPORTED TO HQMC" TO HEADING 
STORE 'DRUGTOTAL' TO CRIME 
CASE COUNT 211 
STORE 'NARCOTICS ġ DANGEROUS DRUG TRAFFICKING OFFENSES' 4; 
" REPORTED TO HQMC" TO HEADING 
STORE 'SELLCOUNT' TO CRIME 
CASE COUNT 212 
STORE "NARCOTICS & DANGEROUS DRUG POSSESSION OFFENSES" + ; 
" REPORTED TO HQMC" TO HEADING 
STORE 'NARCCOUNT' TO CRIME 
CASE COUNT 213 
STORE "MARIJUANA TRAFFICKING OFFENSES REPORTED TO HQMC" TO HEADING 
STORE "DEALCOUNT" TO CRIME 
CASE COUNT =14 
STORE "MARIJUANA POSSESSION OFFENSES REPORTED TO HQMC" TO HEADING 
STORE 'SMOKECOUNT' TO CRIME 
ENDCASE 
STORE (80-LEN(TRIM("&HEADING")))/2 TO CENTER 
@ 5, CENTER SAY "&HEADING" 
@ 8, 42 SAY STR(LAST_YEAR,4) 
@ 8, 52 SAY STR(CURNT_YEAR,4) 
@ 8, 60 SAY "% OF CHANGE" 
STORE 10 TO LINE 
STORE 1 TO PACE 
DO WHILE PLACE < 21 
DO CASE 
CASE PLACE =1 
STORE "MCLB ALBANY" TO STATION 
CASE PLACE 22 
STORE "MCLB BARSTOW" TO STATION 
CASE PLACE 23 
STORE "MCAS BEAUFORT" TO STATION 
CASE PLACE 24 
STORE "CAMP BUTLER" TO STATION 
CASE PLACE z5 
STORE "CHERRY POINT" TO STATION 
CASE PLACE 26 
STORE "MCAS EL TORO" TO STATION 
CASE PLACE =7 
STORE "CAMP ELMORE" TO STATION 
CASE PLACE =8 
STORE "HENDERSON HALL" TO STATION 
CASE PLACE =9 
STORE "MCAS IWAKUNI" TO STATION 
CASE PLACE =10 
STORE "MCAS KANEOHE" TO STATION 
CASE PLACE =11 
STORE "MCB CAMP LEJEUNE" TO STATION 
CASE PLACE 212 
STORE "MCRD PARRIS ISLAND" TO STATION 
CASE PLACE =13 
STORE "MCB CAMP PENDLETON" TO STATION 
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CASE PLACE -14 
STORE "MCDEC QUANTICO" TO STATION 
CASE PLACE 215 
STORE "MCRD SAN DIEGO" TO STATION 
CASE PLACE -16 
STORE "MCAS TUSTIN" TO STATION 
CASE PLACE 217 
STORE "MCAGCC TWENTYNINE PALMS" TO STATION 
CASE PLACE 218 
STORE "MCAS YUMA" TO STATION 
CASE PLACE 219 
STORE "CAMP SMITH" TO STATION 
CASE PLACE =20 
STORE "MCAS NEW RIVER" TO STATION 
ENDCASE 
GO TOP 
SET EXACT OFF - 
LOCATE FOR (STATION = "&STATION") .AND. (YEAR = LAST_YEAR) 
@ LINE, 5 SAY "&STATION" 
@ LINE, 42 SAY &CRIME 
STORE &CRIME TO TEMP1 
STORE &CRIME + LYR_TOTAL TO LYR_TOTAL 
GO TOP 
LOCATE FOR (STATION = "&STATION") .AND. (YEAR = CURNT_YEAR) 
SET EXACT ON 
@ LINE, 52 SAY &CRIME 
STORE &CRIME TO TEMP2 
STORE &CRIME + YR_TOTAL TO YR_TOTAL 


IF TEMP1 = 0 
STORE TEMP2 * 100 TO PERCNTCHG 
EESE 


STORE ROUND((((TEMP2-TEMP1)/(TEMP1))*100),2) TO PERCNTCHG 
ENDIF 
@ LINE, 58 SAY PERCNTCHG 
STORE PLACE + 1 TO PLACE 
STORE LINE + 2 TO LINE 
ENDDO WHILE PLACE < 21 
STORE LINE + 1 TO LINE 
@ LINE, 5 SAY "TOTAL" 
@ LINE, 36 SAY LYR_TOTAL 
@ LINE, 46 SAY YR_TOTAL 
IF LYR_TOTAL =0 
STORE YR_TOTAL * 100 TO PERCNTCHG 
ELSE 
STORE ROUND((((YR_TOTAL-LYR_TOTAL)/LYR_TOTAL)*100),2) TO PERCNTCHG 
ENDIF 
@ LINE, 58 SAY PERCNTCHG 
STORE COUNT + 1 TO COUNT 
ENDDO WHILE COUNT < 15 
SET SAFETY ON 
EJECT 
SET DEVICE TO SCREEN 
RELEASE ALL EXCEPT USER* 
RETURN 


1:69] 
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* Program : SECOND PRINT MODULE (PRINT2.PRG) 


* Author : P. E. PAQUETTE 

* Date : 12/28/87 

* Purpose : THIS MODULE WILL PRINT ALL THE DUI & DWI 
ж 


ж 
ж 


INFORMATION EXTRACTED FROM THE INSTALLATION 
DATABASES. ITS FUNCTIONING IS SIMILAR TO THAT 
OF PRINT MODULE NUMBER ONE 


* Input File : ARCHIVE.DBF 
* Output File : NONE 
* Caled By :  PRINT.PRG 


* Calls `: NONE 

* Variables 

ж Loca: HEADING, YR, TOTAL, LYR, TOTAL, COUNT, PLACE 

* CRIME1, CRIME2, CENTER, LINE, PLACE, TEMP1TOTAL 

ж TEMP2TOTAL, TEMP3TOTAL, TEMPATOTAL, TEMPSTOTAL, 
Ж TEMPGTOTAL, STATION, LAST. TOTAL, CRNT TOTAL, 
PERCNTCHG 

* 


Global : NONE 


X X X X X X X X X X X X X X X X X + 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


@ 10,3 CLEAR TO 22, 78 

SET COLOR TO GR+/* 

@ 12, 24 БА Бине n о $ 
SET COLOR TO GR+/R,W/R,N 

STORE SPACE(62) TO HEADING 
STORE 0 TO YR_TOTAL,LYR_TOTAL 
STORE 1 TO COUNT,PLACE 

@ 0,0 

SET DEVICE TO PRINT 

DO WHILE COUNT < 3 


DO CASE 
CASE COUNT =1 
STORE "DRIVING VIOLATIONS RELATED TO ALCOHOL ABUSE" TO HEADING 
STORE "DWIBASE" TO CRIME1 
STORE "DWI" TO CRIME2 
CASE COUNT =2 
STORE "DUIBASE" TO CRIMEI 
STORE "DUI" TO CRIME2 
ENDCASE 
STORE (80-LEN(TRIM(" &HEADING")))/2 TO CENTER 
(9 4, CENTER SAY "&HEADING" 
@ 7,20 SAY STR(LAST_YEAR,4) 
, 29 SAY STR(LAST_YEAR,4) 
38 SAY STR(CURNT_YEAR,4) 
47 SAY STR(CURNT_YEAR,4) 
, S6 SAY STR(LAST. YEAR.) 
65 SAY STR(CURNT_YEAR,4) 


- 


7 
7 
7 


7 
7 

7 

8, 18 SAY "ON BASE OFF BASE ON BASE OFF BASE TOTAL TOTAL" 
8, 72 SAY "CHANGE" 
9 
9 
9 
9 


* 


21 SAY "&CRIME2" 
, 30 SAY "&CRIME2" 
3 
4 


< 


9 SAY "&CRIME2" 
8 SAY "&CRIME2" 


5 


@ @ @ @ @ @ @ @ @ @ @ @ 


> 
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@ 9,57 SAY "&CRIME2" 
@ 9, 66 SAY "&CRIME2" 
STORE 11 TO LINE 
STORE 1 TO PLACE 
STORE 0 TO TEMPITOTAL,TEMP2TOTAL,TEMP3TOTAL 
STORE 0 TO TEMP4TOTAL,TEMPSTOTAL,TEMPGTOTAL 
DO MHILE PLACE <21 
DO CASE 
CASE PLACE =!1 
STORE "MCLB ALBANY" TO STATION 
CASE PLACE 22 
STORE "MCLB BARSTOW" TO STATION 
GASE PLAGE =3 
STORE "MCAS BEAUFORT" TO STATION 
CASE PLACE =4 
STORE "CAMP BUTLER" TO STATION 
CASE PLACE =5 
STORE "CHERRY POINT" TO STATION 
CASE PLACE =6 
STORE "MCAS EL TORO" TO STATION 
CASE PLACE =7 
STORE "CAMP ELMORE" TO STATION 
CASE PLACE =8 
STORE "HENDERSON HALL" TO STATION 
CASE PLACE =9 
STORE "MCAS IWAKUNI" TO STATION 
CASE PLACE =10 
STORE "MCAS KANEOHE" TO STATION 
CASE PLACE =11 
STORE "MCB CAMP LEJEUNE" TO STATION 
CASE PLAGE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
CASE PEACE -13 
STORE "MCB CAMP PENDLETON" TO STATION 
CASE PLACE -14 
STORE 'MCDEC QUANTICO" TO STATION 
CASE PEACE =15 
STORE "MCRD SAN DIEGO" TO STATION 
CASE PLACE =16 
STORE "MCAS TUSTIN" TO STATION 
CASE PLACE =17 
STORE "MCAGCC 29 PALMS" TO STATION 
CASE PLACE =18 
STORE "MCAS YUMA" TO STATION 
CASE PLACE =19 
STORE "CAMP SMITH" TO STATION 
CASE PLACE =20 
STORE "MCAS NEW RIVER" TO STATION 
ENDCASE 
GO TOP 
SET EXACT OFF 
LOCATE FOR (STATION = "&STATION") .AND. (YEAR = LAST_YEAR) 
@ LINE,1 SAY "&STATION" 
@ LINE, 20 SAY STR(&CRIME1,4) 
@ LINE, 29 SAY STR(&CRIME2,4) 
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STORE &CRIMEI 4 &CRIME2 TO LAST. TOTAL 
STORE &CRIMEI « TEMPITOTAL TO TEMPITOTAL 
STORE &CRIME2 + TEMP2TOTAL TO TEMP2TOTAL 
STORE LAST TOTAL 4 TEMPSTOTAL TO TEMPSTOTAL 
GO TOP 
LOCATE FOR (STATION 2 "&STATION") .AND. (YEAR » CURNT. YEAR) 
SET EXACT ON 
@ LINE, 38 SAY STR(&CRIME1,4) 
(9 LINE, 47 SAY STR(&CRIME2,4) 
STORE &CRIME1 + &CRIME2 TO CRNT_TOTAL 
STORE &CRIMEI + TEMP3TOTAL TO TEMP3TOTAL 
STORE &CRIME2 + TEMP4TOTAL TO TEMP4TOTAL 
STORE CRNT_TOTAL + TEMP6TOTAL TO TEMP6TOTAL 
(9 LINE, 56 SAY STR(LAST. TOTAL A4) 
@ LINE, 65 SAY STR(CRNT_TOTAL,4) 
IF LAST. TOTAL = 0 
STORE CRNT. TOTAL * 100 TO PERCNTCHG 
ELSE 
STORE ROUND((((CRNT_TOTAL-LAST_TOTAL)/(LAST_TOTAL))*100),2) ; 
TO PERCNTCHG 
ENDIF 
(9 LINE, 73 SAY STR(PERCNTCHGA) 
STORE PLACE + 1 TO PLACE 
STORE LINE + 2 TO LINE 
ENDDO WHILE PLACE « 21 
STORE LINE + 1 TO LINE 
@ LINE, 1 SAY "TOTAL" 
(9 LINE, 20 SAY STR(TEMPITOTALA) 
@ LINE, 29 SAY STR(TEMP2TOTAL,4) 
(9 LINE, 38 SAY STR(TEMP3TOTAL 4) 
@ LINE, 47 SAY STR(TEMP4TOTAL,4) 
@ LINE, 56 SAY STR(TEMPSTOTAL,4) 
@ LINE, 65 SAY STR(TEMP6TOTAL,4) 
IF TEMPSTOTAL = 0 
STORE TEMP6TOTAL * 100 TO PERCENTCHG 
ELSE 
STORE ROUND ((((TEMP6TOTAL-TEMPSTOTAL)/TEMPS5TOTAL)*100),2) : 
TO PERCENTCHG 
ENDIF 
@ LINE, 73 SAY STR(PERCENTCHG,4) 
STORE COUNT + 1 TO COUNT 
RELEASE ALL LIKE TEMP*TOTAL 
ENDDO WHILE COUNT <3 
EJECT 
SET DEVICE TO SCREEN 
RELEASE ALL EXCEPT USER* 
RETURN 
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* Program : THIRD PRINT MODULE (PRINT3.PRG) 


* Author : P. E. PAQUETTE 

* Date : 1/2/88 

t'Purpose: : THIS MODULE WILL FORMAT THE CRIME INFORMATION 
* INTO THE FOUR TABULAR FORMATS REQUIRED BY THE 
* ANNUAL REPORT. 


* Input File : ARCHIVE.DBF 
* Output File : NONE 
* Called By : PRINT.PRG 


+ + Y> X X Y> X X X X X Yf X X X X X X X кк 


* Calis : NONE 

* Variables 

ee leocal : CENTER, HEADING, COUNTER, YR_TOTAL, LYR_TOAL 
$ T_HOMICIDE, T_RAPE, T_ROBBERY,T_ASSAULT 

Ж T BURGLARY, T LARCENY,T AUTO,CURNT РОР 

5 L HOMICIDE, L RAPE, L ROBBERY,L. ASSAULT 

и L BURGLARY,L LARCENY,L AUTO, LAST POP 

+ T NARC, T SELL, T SMOKE, T DEAL, L SELL 

т L SMOKE, L DEAL, РЕСМТСНС, СТ RATE, LST RATE 
“z TPRCNTCHG, C_TOTAL, L_TOTAL, PERCNTCHG, C_RATE 
5 L RATE, CRIMEI, CRIME2, L. NARC 

ж 


Global : NONE 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


(9 10, 3 CLEAR TO 20, 78 
STORE 1 TO COUNTER 
STORE O TO YR TOTAL,LYR TOTAL 
SUM HOMICIDES,FORCERAPE,ROBBERY,ASSAULT,BURGLARY; FOR YEAR - CURNT YEAR 
TO T HOMICIDE,T RAPE,T ROBBERY,T ASSAULT,T BURGLARY 
SUM LARCENY,AUTOTHEFT,POPULATION; 
FOR YEAR  CURNT YEAR TO T LARCENY,T AUTO,CURNT POP 


SUM HOMICIDES,FORCERAPE,ROBBERY,ASSAULT,BURGLARY; 

FOR YEAR - LAST YEAR TO L HOMICIDE,L RAPE,L ROBBERY,L ASSAULT,L BURGLARY 
SUM LARCENY,AUTOTHEFT,POPULATION; 

FOR YEAR = LAST YEAR TOL LARCENY,L AUTO,LAST POP 


SUM NARCCOUNT,SELLCOUNT,SMOKECOUNT,DEALCOUNT; 

FOR YEAR = CURNT YEAR TO T NARC,T SELL,T SMOKE,T DEAL 
SUM NARCCOUNT,SELLCOUNT,SMOKECOUNT,DEALCOUNT; 

FOR YEAR - LAST YEAR TO L NARC,L SELL,L SMOKE,L DEAL 


DO WHILE COUNTER « 12 
DO CASE 

CASE COUNTER = 1 
STORE T_HOMICIDE TO CRIME1 
STORE L_HOMICIDE TO CRIME2 
STORE "PRCNTCHG1" TO PRCNTCHG 
STORE 'CT RATEI" TO CT RATE 
STORE PST-RATET TO LST RATE 

CASE COUNTER 22 
STORE T RAPE TO CRIMEI 
STORE L RAPE TO CRIME2 
STORE "PRCNTCHG2" TO PRCNTCHG 
STORE "CT_RATE2" TO CT_RATE 
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STORE "LST_RATE2" TO LST_RATE 
CASE COUNTER = 3 

STORE T ROBBERY TO CRIMEI 

STORE L ROBBERY TO CRIME2 

STORE "PRCNTCHG?" TO PRCNTCHG 

STORE "CT RATE3" TO CT RATE 

STORE "LST RATE3" TO LST RATE 
CASE COUNTER = 4 

STORE T ASSAULT TO CRIMEI 

STORE L ASSAULT TO CRIME2 

STORE "PRCNTCHG4" TO PRCNTCHG 

STORE "CT RATE4" TO CT RATE 

STORE "LST RATE4" TO LST RATE 
CASE COUNTER = 5 

STORE T BURGLARY TO CRIMEI 

STORE L. BURGLARY TO CRIME2 

STORE 'PRCNTCHGS' TO PRENTCHG 

STORE 'CT RATES' TOCT RATE 

STORE 'LST RATES' TOLST RATE 
CASE COUNTER = 6 

STORE T LARCENY TO CRIMEI 

STORE L LARCENY TO CRIME2 

STORE "PRCNTCHG6" TO PRCNTCHG 

STORE "CT RATE6" TO CT RATE 

STORE "LST RATE6" TO LST RATE 
CASE COUNTER = 7 

STORE T AUTO TO CRIME 

STORE L. AUTO TO CRIME2 

STORE "PRCNTCHG7" TO PRCNTCHG 

STORE "CT_RATE7" TO CT_RATE 

STORE "LST RATE7" TO LST RATE 
CASE COUNTER - 8 

STORE T DEAL TO CRIMEI 

STORE L. DEAL TO CRIME2 

STORE "PRCNTCHG8" TO PRCNTCHG 

STORE "CT_RATE8" TO CT_RATE 

STORE 'LST RATE8" TO LST RATE 
CASE COUNTER = 9 

STORE T SMOKE TO CRIMEI 

STORE L. SMOKE TO CRIME2 

STORE "PRCNTCHG9" TO PRCNTCHG 

5ТОКЕ "СТ КАТЕ9" ТОСТ КАТЕ 

STORE "LST RATE9" TO LST RATE 
CASE СОСМТЕК - 10 

STORE T_SELL TO CRIME1 

STORE L_SELL TO CRIME2 

STORE "PRCNTCHG10" TO PRCNTCHG 

STORE "CT_RATE10" TO CT_RATE 

STORE "LST_RATE10" TO LST_RATE 
CASE COUNTER = 11 

STORE T NARC TO CRIMEI 

STORE L NARC TO CRIME2 

STORE "PRCNTCHG11" TO PRCNTCHG 

5ТОКЕ "СТ КАТЕ11" ТОСТ КАТЕ 

STORE "LST RATE11" TO LST RATE 


166 


ENDCASE 
STORE ROUND((((CRIME1-CRIME2)/CRIME2)*100),2) TO &PRCNTCHG 
STORE ROUND(((1000*CRIME1)/CURNT_POP),4) TO &CT_RATE 
STORE ROUND(((1000*CRIME2)/LAST_POP),4) TO &LST_RATE 
IF COUNTER c 8 

STORE CRIME1 + XR TOTAL TO ҮР ТОТА, 

STORE CRIME2 + LYR TOTAL TO LYR. TOTAL 

STORE ROUND((((YR_TOTAL-LYR_TOTAL)/LYR_TOTAL)*100),2) TO TPRCNTCHG 
ENDIF 
@ 12, 23 SAY "Summing totals, " + STR(11-COUNTER,2) + " TO GO" 
STORE COUNTER + 1 TO COUNTER 

ENDDO WHILE COUNTER < 12 


@ 0,0 

SET DEVICE TO PRINT 

STORE "INDEX CRIMES REPORTED TO HQMC" TO HEADING 
STORE (80 - LEN(TRIM(" &HEADING"))/2 TO CENTER 

(9 10, CENTER SAY "£&HEADING" 

@ 12,33 SAY STR(LAST_YEAR,4) +" VS "+STR(CURNT_YEAR,4) 
(0 16,67 5АҮ "МОТОВ” 

@ 17, 16 SAY "FORCIBLE" 

17, 35 SAY "AGGREVATED" 

17, 66 SAY "VEHICLE" 

18,0 SAY "YEAR" 

18, 6 SAY "HOMICIDE" 
18, 18 SAY "RAPE" 

18, 26 SAY "ROBBERY"^ 
18, 36 SAY "ASSAULTS" 
18, 47 SAY "BURGLARY" 
18, 57 SAY "LARCENY" 
18,67 SAY "THEFT" 

18, 75 SAY "TOTAL" 


(&) (& @ @ @ @ @ @ @ (е) (е) 


29. JST Y" 

20, 10 SAY STR(L HOMICIDE,4) 
, 18 SAY STR(L_RAPE,4) 

, 29 SAY STR(L_ROBBERY,4) 
20, 40 SAY STR(L_ASSAULT,4) 
20, 50 SAY STR(L_BURGLARY,4) 
20, 59 SAY STR(L_LARCENY,4) 
20, 69 SAY STR(L_AUTO,4) 

,75 SAY STR(LYR TOTAL,4) 
‚О SAY STR(LAST_YEAR,4) 


ә гә 
=- O со со со соо — O — O 


N ә 


25., 1 SAY CY” 

23, 10 SAY STR(T HOMICIDE,4) 
23, 18 SAY STR(T_RAPE,4) 

23, 29 SAY STR(T ROBBERY 4) 
23, 40 SAY STR(T_ASSAULT,4) 
23, 50 SAY STR(T_BURGLARY,4) 
23, 59 SAY STR(T LARCENY 4) 
23, 69 SAY STR(T_AUTO,4) 

23, 75 SAY STR(YR. TOTAL,4) 


@ @ @ @ @ @ @ (е) (807 (өз (өз (е) (өз (өз (ө) (өз) (6) (6) (е) 


Lov 


@ 24,0 SAY STR(CURNT YEAR,4) 


@ 26,2 SAY "%" 

Q 27,2 SAY "OF" 

Q 27, 10 SAY STR(PRCNTCHGI A) 
(9 27, 18 SAY STR(PRCNTCHG2 4) 
27, 29 SAY STR(PRCNTCHG3 4) 
27, 40 SAY STR(PRCNTCHG4,4) 
27, 50 SAY STR(PRCNTCHGS,4) 
27, 59 SAY STR(PRCNTCHG6,4) 
27, 69 SAY STR(PRCNTCHG7,4) 
27,75 5АҮ 5ТЕ(ТРЕСМТСНС 4) 
28,0 SAY "CHANGE" 


32,2 SAY STR(LAST YEAR,4) 
33,2 SAY "RATE" 

33, 10 SAX STR(LST RATEI,5,3) 
33, 18 SAY STR(LST RATE2,5,3) 
33, 29 SAY STR(LST RATE3,5,3) 
33, 40 SAY STR(LST_RATE4,5,3) 
33, 50 SAY STR(LST_RATES,5,3) 
33, 59 SAY STR(LST_RATE6,5,3) 
33, 69 SAY STR(LST RATE7,5,4) 
34,0 SAY "PER 1000" 


6 

2 

7, 10 SAY STR(CT. RATEL,5,3) 
7, 18 SAY STR(CT. RATE2,5,3) 
7,29 SAY STR(CT RATE3,5,3) 
7,40 SAY STR(CT_RATE4,5,3) 
7, 50 SAY STR(CT. RATES,5,3) 
7, 59 SAY STR(CT. RATE6,5,3) 
7, 69 SAY STR(CT_RATE7,5,3) 
8,0 SAY "PER 1000" 

@ 41, 14 SAY "HOMICIDE INCLUDES MURDER AND NONNEGLIGENT MANSLAUGHTER" 
EJECT 


@ ®@ ®@ @ @ @ ®@ @ @ @ BDOEQOOQOLQHOQQOQD ()/((9((9(9(9 


STORE T HOMICIDE « T RAPE « T ROBBERY « T ASSAULT TOC TOTAL 
STORE L HOMICIDE 4: L RAPE4 L ROBBERV « L ASSAULT TOL TOTAL 
STORE ROUND((((C_TOTAL - L_TOTAL)/L_TOTAL)*100),2) TO PERCENTCHG 
STORE ROUND(((1000*C_TOTAL)/CURNT_POP),4) TO C_RATE 

STORE ROUND(((1000*L_TOTAL)/LAST_POP),4) TO L_RATE 


@ 0,0 

STORE "VIOLENT CRIMES REPORTED TO HQMC" TO HEADING 
STORE (80-LEN(TRIM("&HEADING")))/2 TO CENTER 

@ 10, CENTER SAY "&HEADING" 

@ 12, 33 SAY STR(LAST_YEAR,4) +" VS "+STR(CURNT_YEAR 4) 


@ 17,30 SAY "FORCIBLE" 

@ 17,53 SAY "AGGREVATED" 
@ 18, 10 SAY "YEAR" 

@ 18, 18 SAY "HOMICIDE" 

@ 18, 32 SAY "RAPE" 
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Q 18,42 SAY "ROBBERY" 
@ 18, 54 SAY "ASSAULTS” 
@ 18, 67 SAY "TOTAL" 


20, 11 SAY "CY" 

,20 SAY STR(L_HOMICIDE,4) 
, 32 SAY STR(L_RAPE,4) 

,43 SAY STR(L_ROBBERY,4) 
, 56 SAY STR(L_ASSAULT,4) 
‚ 68 SAV STR(L TOTAL) 

, 10 SAY STR(LAST. YEAR,4) 


NW NNW го Ww 
— — O O O O 


23, 11 SKY "CY" 

23, 20 SAY STR(T. HOMICIDE,4) 
23, 32 SAY STR(T RAPE,4) 

23, 43 SAY STR(T. ROBBERY,4) 
23, 56 SAY STR(T ASSAULT,4) 
23, 68 SAY STR(C_TOTAL,4) 

24, 10 SAY STR(CURNT_YEAR,4) 


26. Мб *%% 

27. MSSAW "ОБ" 

27,20 5АҮ 5ТЕ(РЕСМТСНС1,4) 
27, 32 5АҮ 5ТЕ(РЕСМТСНС2,4) 
27, 43 SAY STR(PRCNTCHG3 4) 
27, 56 SAY STR(PRCNTCHGA4 4) 
27, 68 SAY STR(PERCENTCHG 4) 
28,9 SAY "CHANGE" 

2,10 SAY STR(LAST_YEAR,4) 
3, 10 SAY "RATE" 

3, 17 SAY STR(LST. RATE1,5,3) 
3. 31 SAY STR(LST. RATE2,5,3) 
3, 42 SAY STR(LST_RATE3,5,3) 
3, 55 SAY STR(LST_RATE4,5,3) 
3, 67 SAY STR(L_RATE,5,3) 

4,8 SAY "PER 1000” 


6, 10 SAY STR(CURNT YEAR,4) 
7, 10 SAY "RATE" 

7, 17 SAY STR(CT. RATE1,5,3) 
7, 31 SAY STR(CT RATE2,5,3) 

, 42 SAY SIBR(CT RATE3,5,3) 
722 SAMA SIBR(CI RATE4,5,3) 

, 67 SAY STR(C_RATE,5,3) 

‚8 ЅАҮ "РЕК 1000" 


DO 00000000 00000000 00000000 (ө)(Ө) (в) (Өз (6) (6) (6) 


3 
3 
3 
3 
37 
37 
37 
38 
@ 41, 14 SAY "HOMICIDE INCLUDES MURDER AND NONNEGLIGENT MANSLAUGHTER" 


RELEASE C_TOTAL,L_TOTAL,PERCENTCHG,C_RATE,L_RATE 
EJECT 


STORE T_BURGLARY + T_LARCENY + T_AUTO TO C_TOTAL 
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STORE L BURGLARV + Г. LARCENY « L AUTO TOL TOTAL 

STORE ROUND(((C. TOTAL - L TOTALYL. TOTAL)*100)2) TO PERCENTCHG 
STORE ROUND(((1000*C_TOTAL)/CURNT_POP),4) TO C_RATE 

STORE ROUND(((1000*L_TOTAL)/LAST_POP),4) TO L RATE 


@ 0,0 

STORE "CRIMES AGAINST PROPERTY REPORTED TO HQMC" TO HEADING 
STORE (80-LEN(TRIM("&HEADING")))/2 TO CENTER 

@ 10, CENTER SAY "&HEADING" 

@ 12,33 SAY STR(LAST_YEAR,4) +" VS "+ STR(CURNT_YEAR,4) 

(9 16, 55 SAY "MOTOR" 

@ 17, 54 SAY "VEHICLE" 

@ 18,6 SAY "YEAR" 

@ 18,19 SAY "BURGLARY" 

@ 18, 37 SAY "LARCENY" 

@ 18, 55 SAY "THEFT" 

(9 18, 71 SAY "TOTAL" 
„одаи 

,22 SAY STR(L_BURGLARY 4) 
,39 SAY STR(L. LARCENY A) 

, 55 SAY STR(L AUTO A) 

, 72 SAY STR(L TOTAL A) 

,6 SAY STR(LAST_YEAR,4) 


2 NNN м м 
— — — @— CS 


SAY C X, 

, 22 SAY STR(T_BURGLARY,4) 
,39 SAY STR(T LARCENY 4) 
,35 SAY STR(T AUTO) 

, 72 SAY STR(C TOTAL) 

,6 SAY STR(CURNT_YEAR,4) 


КК КК КО (А 
WWW WW 


SAY "90" 
SAY "OF" 

2 SAY STR(PRCNTCHG5 4) 

9 SAY STR(PRCNTCHG6,4) 

5 SAY STR(PRCNTCHG7,4) 

2 SAY STR(PERCENTCHG,5,3) 
SAY "CHANGE" 


ммм ммм 
OO N NNNNA 
CA —) CA C29 b ~ ~ 


6 SAY STR(LAST. YEAR A) 

6 SAY "RATE" 

21 SAY STR(LST. RATES,5,3) 

, 38 SAY STR(LST. RATE6,5,3) 
54 SAY STR(LST В.АТЕ7,5,4) 

71 SAY STR(L_RATE,5,3) 

,4 SAY "PER 1000" 


v v 


ж 


v 


v 


WWW WWW C9 
WWW WW dd 


6 SAY STR(CURNT_YEAR,4) 
6 SAY "RATE" 

21 SAY STR(CT. RATES5,5,3) 

, 38 SAY STR(CT_RATE6,5,3) 

, 54 SAY STR(CT_RATE7,5,3) 


ж 


v 


®®®@®@® ®®®®®®® ®®®®®®® ®®®®®® ®®@®®®® 


UJ U2 L9 C9 C9 
м ммм е 
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@ 37,71 SAY STR(C_RATE,S,3) 
@ 38,4 SAY "РЕК 1000” 
EJECT 


STORE T_NARC + T. SELL « T SMOKE + Т DEAL TO C TOTAL 

STORE L NARC « L SELL » L, SMOKE « L DEAL TO L. TOTAL 

STORE ROUND((((C_TOTAL - L_TOTAL)/L_TOTAL)*100),2) TO PERCENTCHG 
STORE ROUND(((1000*C_TOTAL)/CURNT_POP),4) TO C_RATE 

STORE ROUND(((1000*L_TOTAL)/LAST_POP),4) TO L_RATE 


@ 0,0 

STORE "NARCOTICS/DANGEROUS DRUGS AND MARIJUANA OFFENSES REPORTED " + ; 
"TO HQMC" TO HEADING 

STORE (80-LEN(TRIM('&HEADING"))/2 TO CENTER 

( 10, CENTER SAY "&HEADING" 

@ 12,33 SAY STR (LAST. YEAR,4) - " VS " - STR(CURNT. YEAR.) 

SET MARGIN TO 5 

@ 16,38 SAY "NARCOTICS & DANGEROUS" 

@ 17,16 SAY "MARIJUANA" 

@ 17,46 SAY "DRUGS" 

@ 18,2 SAY” YEAR” 

@ 18, 12 SAY "SALES" 

@ 18, 24 SAY "POSSESSION" 

18, 42 SAY "SALES" 

18, 50 SAY "POSSESSION" 

18566 SAY "TOTAL" 


20, 3 SAY "OY" 

20, 12 SAY STR(L_DEAL,4) 

20, 27 SAY STR(L_SMOKE,4) 
20, 40 SAY STR(L_SELL,4) 

20, 52 SAY STR(L NARC,A) 
20, 64 SAY STR(L_TOTAL,4) 
21,2 SAY STR(LAST_YEAR,4) 


3 SAF “CY” 

, 12 SAY STR(T_DEAL,4) 

, 27 SAY STR(T_SMOKE,4) 

, 40 SAY STR(T_SELL,4) 

„92 SAY STR(T_NARC,4) 

, 64 SAY STR(C_TOTAL,4) 

,2 SAY STR(CURNT YEAR,4) 


ы ммм 02 
P L L) L) U U) U 


26,3 SAY "95" 

21, 3 ‘SRV “OF 

27, 12 SAY STR(PRCNTCHGS,4) 
27, 27 SAY STR(PRCNTCHG9,4) 
27, 40 SAY STR(PRCNTCHG 10,4) 
27, 52 SAY STR(PRCNTCHG11,4) 
27, 64 SAY STR(PERCENTCHG,4) 
28, 1 SAY "CHANGE" 


2,2 SAY STR(LAST YEAR,4) 
3,2 SAS RINE 
SCTIPSAX SWEÁLSS RATES,5,3) 


@@@ @@@@@@@@ ®®®@®®®® ®®®®®®® BBB 


UJ UO) GJ 
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, 26 SAY STR(LST. RATE9,5,3) 
, 39 SAY STR(LST. RATE10,5,3) 
‚ 51 SAY STR(LST RATE11,5,3) 
‚ 63 SAY STR(L_RATE,5,3) 

.0 SAY "PER 1000" 


U WW WW U Ud 


,2 SAY "RATE" 
, 11 SAY STR(CT. RATES8,5,3) 
, 26 SAY STR(CT. RATE9,5,3) 
, 39 SAY STR(CT_RATE10,5,3) 
, 51 SAY STR(CT_RATE11,5,3) 
7, 63 SAY STR(C_RATE,5,3) 
@ 38,0 SAY "PER 1000" 
SET MARGIN TO 0 
EJECT 
SET DEVICE TO SCREEN 
RELEASE ALL EXCEPT USER* 
RETURN 


3 
3 
3 
3 
4 
6,2 SAY STR(CURNT_YEAR,4) 
7 
т 
Г 
7 
7 


@@@@@@@ ®®®®@® 
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* Program : FOURTH PRINT MODULE (PRINT4.PRG) б 
* Author : P. E. PAQUETTE Mi 
* Date : 1/9/88 i 
* Purpose : THIS MODULE WILL PRINT ALL THE CRIME z 
n INFORMATION IN THE LINE GRAPH FORMAT AS WELL i 
Y AS CALCULATE THE CRIME RATE PER 1000 INDIVIDUALS 5 
6 FOR EACH INSTALLATION. IT WILL ALSO PROVIDE * 
r THE SAME INFORMATION FOR THE PRECEEDING YEAR AS ki 
Ё A MEANS OF VIEWING TRENDS y 
* Input File : ARCHIVE.DBF и 
* Output File : NONE » 
* Called By : PRINT.PRG Š; 
* Сайы. МОМЕ ġġ 
* Variables + 
* Leea HEADING COUNT PLACE CRIME, CENTER, EINE, * 
= STATION, START, COLMN, à 
* L RATE, C RATE, DECREMENT = 
* ж 


Global : NONE 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжижжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


(9 10,3 CLEAR ТО 23,78 
@ 12, 23 SAY "Starting last print sequence.......... a 
STORE SPACE(62) TO HEADING 
STORE 1 TO COUNT,PLACE 
SET DEVICE TO PRINT 
(9 0,0 
DO WHILE COUNT « 5 
DO CASE 
CASE COUNT 21 
STORE "INDEX CRIME RATE BY BASE (PER 1000)" TO HEADING 
STORE "INDEXTOTAL" TO CRIME 
CASE COUNT 22 
STORE "PROPERTY CRIME RATE BY BASE (PER 1000)" TO HEADING 
STORE "PROPCRIME" TO CRIME 
CASE COUNT 23 
STORE "DRUG CRIME RATE BY BASE (PER 1000)" TO HEADING 
STORE 'DRUGTOTAL' TO CRIME 
CASE COUNT =4 
STORE "VIOLENT CRIME RATE BY BASE (PER 1000)" TO HEADING 
STORE "VIOLENT" TO CRIME 
ENDCASE 
STORE (80-LEN(TRIM("&HEADING"))/2 TO CENTER 
@ 5, CENTER SAY "& HEADING" 
STORE 10 TO LINE 
STORE 1 TO PLACE 
DO WHILE PLACE < 21 
DO CASE 
CASE PLACE =1 
STORE "MCLB ALBANY" TO STATION 
CASE PLACE =2 
STORE "MCLB BARSTOW" TO STATION 
CASE PLACE =3 
STORE "MCAS BEAUFORT" TO STATION 
CASE PLACE =4 


Ке 


STORE "CAMP BUTLER" TO STATION 
CASE PLACE 25 
STORE "CHERRY POINT" TO STATION 
CASE PLACE 26 
STORE "MCAS EL TORO" TO STATION 
CASE PLACE =7 
STORE "CAMP ELMORE" TO STATION 
CASE PLACE =8 
STORE "HENDERSON HALL" TO STATION 
CASE PLACE =9 
STORE "MCAS IWAKUNI" TO STATION 
CASE PLACE =10 
STORE "MCAS KANEOHE" TO STATION 
CASE PLACE =11 
STORE "MCB CAMP LEJEUNE" TO STATION 
CASE PLACE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
CASE PLACE =13 
STORE "MCB CAMP PENDLETON" TO STATION 
CASE PLACE =14 
STORE "MCDEC QUANTICO" TO STATION 
CASE PLACE =15 
STORE "MCRD SAN DIEGO" TO STATION 
CASE PLACE =16 
STORE "MCAS TUSTIN" TO STATION 
CASE PLACE =17 
STORE "MCAGCC TWENTYNINE PALMS" TO STATION 
CASE PLACE =18 
STORE "MCAS YUMA" TO STATION 
CASE PLACE =19 
STORE "CAMP SMITH" TO STATION 
CASE PLACE =20 
STORE "MCAS NEW RIVER" TO STATION 
ENDCASE 
GO TOP 
SET EXACT OFF 
LOCATE FOR (STATION = "&STATION") .AND. (YEAR = LAST_YEAR) 
IF POPULATION = 0 
@ LINE, 30 SAY "NO POPULATION TOTAL LISTED FOR " + STR(LAST_YEAR,4) 
ELSE 
STORE 32 TO START 
STORE 30 TO COLMN 
STORE ROUND(((1000* &CRIME)/POPULATION),3) TO L RATE 
STORE (COLMN 4 L RATE) TO DECREMENT 
DO WHILE START « DECREMENT 
(9 LINE, COLMN SAY "*" 
STORE COLMN + 1 ТО СО ММ 
STORE (DECREMENT - 2) TO DECREMENT 
ENDDO WHILE START « DECREMENT 
@ LINE, (COLMN + 4) SAY STR(L. RATE,5,3) 
ENDIF POPULATION 
STORE LINE + 1 TO LINE 
@ LINE, 5 SAY "&STATION" 
GO TOP 
LOCATE FOR (STATION = "& STATION") .AND. (YEAR = CURNT_YEAR) 
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IF POPULATION = 0 
@ LINE, 30 SAY "NO POPULATION TOTAL LISTED FOR " + STR(CURNT_YEAR,4) 
ELSE 
STORE 32 TO START 
STORE 30 TO COLMN 
STORE ROUND(((1000*&CRIME)/POPULATION),3) TO C_RATE 
STORE (COLMN + C_RATE) TO DECREMENT 
DO WHILE START < DECREMENT 
@ LINE, COLMN SAY "=" 
STORE COLMN + 1 TO COLMN 
STORE (DECREMENT - 2) TO DECREMENT 
ENDDO WHILE START < DECREMENT 
@ LINE, (COLMN +4) SAY STR(C_RATE,5,3) 
ENDIF POPULATION 
STORE LINE + 1 TO LINE 
STORE PLACE + 1 TO PLACE 
ENDDO WHILE PLACE < 21 
STORE COUNT + 1 TO COUNT 
STORE LINE + 2 TO LINE 
IF COUNT > 3 
@ LINE ,34 SAY "1" 
@ LINE ,39 SAY "2" 
@ LINE ,44 SAY "3" 
(9 LINE ,49 SAY "4" 
LINE ,54 SAY "5" 
INE ,59 SAY "6" 
INE ,64 SAY "7" 
INE ,69 SAY "8" 
INE ,75 SAY "9" 


(11 
(8 & € (& (€ (& (€ L5 (€ (€ (€ (€) (S) 


INE ,34 SAY "10" 
INE ,39 SAY "20" 
INE ,44 SAY "30" 
INE ,49 SAY "40" 
INE ,54 SAY "50" 
INE ,59 SAY "60" 
LINE ,64 SAY "70" 
(2 LINE ,69 SAY "80" 
(2 LINE ,75 SAY "90" 
ENDIF COUNT 
(Өр ЭБУ U - STRTAST YEAR,4) 
(ese) Se = ———— * + STR(CURNT_YEAR,4) 
ENDDO WHILE COUNT <5 
SET SAFETY ON 
EJECT 
SET DEVICE TO SCREEN 
RELEASE ALL EXCEPT USER* 
RETURN 


гг сог г “геге ге 
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* Program : — REPORTS.PRG 


* Author : P. E. PAQUETTE 

* Date : 12/16/86 

* Purpose : ALLOWS THE USER TO CHOOSE THE TYPE OF REPORT 
* 


THAT IS GOING TO BE GENERATED. 


* Input File : NONE 
* Output File : NONE 
* Called By : MAIN.PRG 


ж Са MONTHLY .PRG, INFOANNUAL.PRG, PRINT, AUDIT.PRG 
* Variables 
* “Босат CHOICE, DELAY 


* 


Global ; NONE 


* * Y Y Y YXY Y Y XY X ҙ Ж 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


STORE 9 TO CHOICE 
DO WHILE CHOICE » 5 


CLEAR 
(2 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,29 SAY "REPORTS GENERATION" 
@ 8,0 SAY CHR(204) 
@ 8,1 TO 8,78 DOUBLE 
@ 8,79 SAY CHR(185) 
@ 10,29 SAY "1. Monthly Report" 
@ 12,29 SAY "2. Compile Annual Report" 
@ 14,29 SAY "3. Print Annual Report” 
@ 16,29 SAY "4. Audit Report" 
(2 18,29 say "5. Main Menu" 
@ 22,24 SAY "PLEASE ENTER A NUMBER" 
@ 22,46 GET CHOICE PICTURE "9" 
READ 
DO CASE 
CASE CHOICE = 1 
DO MONTHLY 
CASE CHOICE = 2 
DO INFOANNU 
CASE CHOICE z 3 
DO PRINT 
CASE CHOICE z 4 
DO AUDIT 
CASE CHOICE = 5 
CLEAR ALL 
RETURN 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
STORE 1 TO DELAY 
DO WHILE DELAY < 35 
STORE DELAY + 1 TO DELAY 
ENDDO WHILE DELAY < 35 
ENDCASE 
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ENDDO WHILE CHOICE » 5 
RETURN 


Ida 
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* Program : SECURITY.PRG 


* Author : P. E. PAQUETTE 

«х рае: 10/10/87 

* Purpose : This program contains the password which allows 
+ an authorized user to acess the Crime Statisucs 

it Database. The user's name and rank as well as 

* access information (files accessed, date & time 

k 


of acess) is recorded. This information is 
T stored in a file called Access.dbf. 

* Input File : NONE 

* Output File : ACCESS.DBF 

* Called By : N/A 


Сас DISPLAY.PRG 
* Variables 
* оса“ RIGHT, LOOP, DELAY 


* Global : USERNAME, USERRANK, USERUNIT, 


и жи хм 3 X X к HE X X X x s X 
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PUBLIC USERNAME, USERUNIT, USERRANK 
STORE ' ‘TO USERNAME 
STORE' 'TO USERUNIT 

STORE' 'TO USERRANK 

STORE 0 TO LOOP 

STORE 'N' TO RIGHT 

CLEAR 

@ 0,0 TO 24,79 DOUBLE 

@ 3,33 SAY "MARINE CORPS" 


@ 4,22 SAY "CRIME STATISTICS REPORTING PROGRAM" 


@ 5,22 SAY" ACCESS TO THIS DATABASE IS " 
@ 8,0 SAY CHR(204) 
@ 8,79 SAY CHR(185) 
@ 8,1 TO 8,78 DOUBLE 
SET COLOR TO GR+/R* 
@ 7,34 SAY "RESTRICTED" 
SET COLOR TO GR+/R,W/R,N 
@ 9,26 SAY "AUTHORIZED PERSONNEL ONLY " 
@ 14,26 SAY "What is your name and rank?" 
@ 15,29 GET USERNAME 
@ 17,25 SAY "What section do you work in?” 
@ 18,37 GET USERUNIT 
DO WHILE RIGHT ='N' 
@ 20,25 SAY "Please type in the password:" 
SET COLOR TO R/R,W/R,N 
STORE XXXXXXXXXX' TO PASSWORD 


READ 

SET COLOR TO GR+/R,W/R,N 

SET EXACT ON 

IF PASSWORD «» PAQMANXXXX' 
@ 10,19 CLEAR TO 19,57 
@ 10,19 TO 19,57 DOUBLE 
@ 14,27 SAY "PASSWORD INCORRECT !" 
@ 15,27 SAY " TRY ONCE AGAIN " 
STORE LOOP + 1 TO LOOP 
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22 СНК(7) 

ELSE 
STORE Y' TO RIGHT 
RETURN 

ENDIF 

IF LOOP = 3 
@ 10,19 CLEAR TO 19,57 
(9 10,19 TO 19,57 DOUBLE 
@ 14,24 SAY "THREE GUESSES ARE ALL YOU GET" 
SET COLOR TO GR+/R* 
@ 15,30 SAY ' ACCESS DENIED" 
SET COLOR TO GR+/R,W/R,GR+ 
?? CHR(7) 
STORE 1 TO DELAY 

DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 

ENDDO WHILE DELAY < 50 
CLEAR ALL 
QUIT 

ENDIF 

ENDDO 
RETURN 
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Program : UPDATE.PRG 


Author : P. E. PAQUETTE 
Date 10/10/87 
Purpose : THIS PROGRAM ALLOWS THE USER TO INPUT THE 


MONTHLY CRIME DATA FROM THE TWENTY REPORTING 


INSTALLATIONS. DATA IS STORED IN A SEPARATE 
DBF FILE FOR EACH INSTALLATION. 

Input File : ALL .DBF FILES 

Output File : UPDATED .DBF FILES 

Called By : MAIN.PRG 


Calls : NONE 
Variables 
Local’: CHOICE, STATION, EXIT, REPEAT, DBF, DELAY, DATE, 
VERIFY, COUNT, CRIME, TF1, TF2, TF3, TF4, TFS, 
TF6, TF7, TF8, TF9, TF10, TF11, TF12, TF13, 
ТЕ14 ТЕ15, ТЕ16, ТЕ17, ТЕ18, ТЕ19, ТЕ20, TF21, 
TF22, ТЕ23, ТЕ24, ТЕ25, ТЕ26, ТЕ27, TF28 


Global : NONE 


+ + X Y X X X X X X X X X X X XY X + 
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RELEASE ALL EXCEPT USER* 
STORE 99 TO CHOICE 

STORE " ' TO STATION 
STORE 'N' TO EXIT 

STORE "Y" TO REPEAT 

DO WHILE REPEAT = "Y" 

DO WHILE EXIT = "N" 


DO WHILE choice > 20 

CLEAR 

@ 0,0 TO 24,79 DOUBLE 

@ 3,31 SAY "MARINE CORPS" 

@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,32 SAY "UPDATE MENU" 

@ 8,0 SAY CHR(204) 


@ 8,79 SAY CHR(185) 

@ 8,1 TO 8,78 DOUBLE 

@ 10,15 SAY "1. MCLB ALBANY 11. MCB CAMP LEJEUNE" 

@ 11,15 SAY "2. MCLB BARSTOW 12. MCRD PARRIS ISLAND" 
@ 12,15 SAY "3. MCAS BEAUFORT 13. MCB CAMP PENDLETON" 
@ 13,15 SAY "4. CAMP BUTLER 14. MCDEC QUANTICO" 

@ 14,15 SAY "5. MCAS CHERRY POINT 15. MCRD SAN DIEGO" 
@ 15,15 SAY "6. MCAS EL TORO 16. MCAS TUSTIN" 

@ 16,15 SAY "7. CAMP ELMORE 17. MCAGCC 29 PALMS" 

@ 17,15 SAY "8. HENDERSON HALL 18. MCAS YUMA" 

@ 18,15 SAY "9. MCAS IWAKUNI 19. CAMP SMITH" 

@ 19,14 SAY "10. MCAS KANEOHE 20. MCAS NEW RIVER" 


@ 21,18 SAY "SELECT THE STATION YOU WISH TO UPDATE" 
@ 22,18 SAY " ENTER '99' TO RETURN TO MAIN MENU" 
@ 23,37 GET CHOICE PICTURE "99" 
READ 
DO CASE 
CASE CHOICE =1 
STORE "MCLB ALBANY" TO STATION 
STORE "ALBANY" TO DBF 


180 


CASE CHOICE z2 
STORE "MCLB BARSTOW" TO STATION 
STORE "BARSTOW" TO DBF 

GSE CHOICE =3 
STORE "MCAS BEAUFORT" TO STATION 
STORE "BEAUFORT" TO DBF 

CASE CHOICE =4 
STORE "CAMP BUTLER" TO STATION 
STORE "BUTLER" TO DBF 

CASE CHOICE 55 
STORE "CHERRY POINT" TO STATION 
STORE "CHERRY" TO DBF 

CASE CHOICE 26 
STORE "MCAS EL TORO" TO STATION 
STORE "ELTORO" TO DBF 

CASE CHOICE =7 
STORE "CAMP ELMORE" TO STATION 
STORE "ELMORE" TO DBF 

CASE CHOICE =8 
STORE "HENDERSON HALL" TO STATION 
STORE "HENDRSON" TO DBF 

CASE CHOICE =9 
STORE "MCAS IWAKUNI" TO STATION 
STORE 'TWAKUNT' TO DBF 

CASE CHOICE 210 
STORE 'MCAS KANEOHE' TO STATION 
STORE "KANEOHE" TO DBF 

CASE CHOICE =11 
STORE "MCB CAMP LEJEUNE" TO STATION 
STORE” LEIJEUNE’ TO DBF 

CASE CHOICE =12 
STORE "MCRD PARRIS ISLAND" TO STATION 
STORE "PI" TO DBF 

CASE CHOICE z13 
STORE "MCB CAMP PENDLETON" TO STATION 
STOBSEOBENDELTN' ТО РВЕ 

CASE CHOICE z14 
STORE "MCDEC QUANTICO" TO STATION 
STORE "QUANTICO" TO DBF 

CASE CHOICE =15 
STORE "MCRD SAN DIEGO" TO STATION 
STORE "SANDIEGO" TO DBF 

CASE CHOICE =16 
STORE "MCAS TUSTIN" TO STATION 
STORE "TUSTIN" TO DBF 

CASE CHOICE =17 
STORE "MCAGCC TWENTYNINE PALMS" TO STATION 
STORE "STUMPS" TO DBF 

CASE CHOICE =18 
STORE "MCAS YUMA" TO STATION 
STORE "YUMA" TO DBF 

CASE CHOICE =19 
STORE "CAMP SMITH" TO STATION 
STORE "SMITH" TO DBF 

CASE CHOICE =20 


led 


STORE "MCAS NEW RIVER" TO STATION 
STORE "NEWRIVER" TO DBF 
CASE CHOICE = 99 
RETURN 
OTHERWISE 
@ 10,17 CLEAR TO 19,55 
@ 10,17 TO 18,55 DOUBLE 
@ 14,25 SAY "ERROR IN INPUT VALUE" 
@ 15,25 SAY "ENTER A NUMBER LISTED" 
?? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
CHOICE = 99 
ENDCASE 
ENDDO WHILE CHOICE > 20 
STORE "MM/YY" TO DATE 
STORE 23 TO MONTH 
DO WHILE (MONTH « 1) .OR. (MONTH > 12) 
(2 9,01 CLEAR TO 23,78 
@ 14,25 SAY "WHAT IS THE DATE OF THE" 
@ 15,25 SAY " REPORT TO BE ADDED?" 
@ 16,34 GET DATE PICTURE "99/99" 
READ 
MONTH = VAL(SUBSTR(DATE, 1,2)) 
IF (MONTH < 1) .OR. (MONTH > 12) 
@ 9,1 CLEAR TO 23,78 
@ 12,18 SAY " SORRY ONLY TWELVE MONTHS IN A YEAR !" 
@ 14,18 SAY "PICK A NUMBER BETWEEN 1 AND 12 INCLUSIVE" 
?? CHR(7) 
STORE 1 TO DELAY 
DO WHILE DELAY < 50 
STORE DELAY +1 TO DELAY 
ENDDO WHILE DELAY < 50 
ENDIF 
ENDDO WHILE MONTH 
CLEAR 
@ 0,0 TO 24,79 DOUBLE 
@ 3,31 SAY "MARINE CORPS" 
@ 4,20 SAY "CRIME STATISTICS REPORTING PROGRAM" 
@ 6,28 SAY "VALIDATION OF INPUT" 
@ 8,0 SAY CHR(204) 
@ 8,79 SAY CHR(185) 
(0 8,1 TO 8,78 DOUBLE 
@ 10,7 SAY "THE INFORMATION WHICH YOU HAVE PROVIDED WILL BE USED TO 
SEARCH" 
@ 11,7 SAY "THE CRIME REPORTING STATISTICS DATA BASE. PLEASE CHECK THE" 
@ 12,7 SAY "INFORMATION BELOW TO ENSURE THAT YOUR ENTRIES ARE CORRECT." 
@ 16,26 SAY "INSTALLATION: &STATION" 
(0 18,26 SAY "DATE OF REPORT: &DATE" 
@ 22,26 SAY "ARE ALL ENTRIES CORRECT?" 
STORE "Y" TO VERIFY 
@ 23,37 GET VERIFY PICTURE "!" 
READ 


L 52 


IE VERIFY = "N" 

SI@RE N” TO EXIT 

STORE 99 TO CHOICE 
ELSE 

STORE Y" TO EXIT 
ENDIF 


@ 0,0 TO24,79 DOUBLE 
@ 5, 0 SAY CHR(204) 
@ 5,79 SAY CHR(185) 
@ 5, 1 ТО 5,78 DOUBLE 
@ 2,26 SAY "INSTALLATION: &STATION" 
@ 3,26 SAY "DATE OF REPORT: &DATE" 
USE &DBF 
GO TOP 
STORE 0 TO COUNT 
STORE " "TO CRIME 
DO WHILE COUNT < 28 
STORE COUNT + 1 TO COUNT 
DO CASE 
CASE COUNT = 1 
STORE "MURDER" TO CRIME 
CASE COUNT = 2 
STORE "MANSLAUGHTER" TO CRIME 
CASE COUNT z 3 
STORE "RAPE" TO CRIME 
CASE COUNT z 4 
STORE "ATTEMPTED RAPE" TO CRIME 
CASE COUNT 2 5 
STORE "ROBBER Y W/FIRE ARM" TO CRIME 
CASE COUNT = 6 
STORE "ROBBERY W/OTHER WEAPON" TO CRIME 
CASE COUNT =7 
STORE "ASSAULT W /FIRE ARM" TO CRIME 
CASE COUNT 2 8 
STORE "ASSAULT W/OTHER WEAPON" TO CRIME 
CASE COUNT 2 9 
STORE "SIMPLE ASSAULT" TO CRIME 
CASE COUNT = 10 
STORE "ENTRY" TO CRIME 
CASE COUNT z 11 i 
STORE "ATTEMPTED ENTRY" TO CRIME 
CASE COUNT = 12 
STORE "GOVT. PROPERTY" TO CRIME 
CASE COUNT = 13 
STORE "NON-GOVT. PROPERTY" TO CRIME 
CASE COUNT = 14 
STORE "LARCENY OF DOD PROPERTY" TO CRIME 
CASE COUNT = 15 
STORE "LARCENY OF NON-DOD PROPERTY" TO CRIME 
CASE COUNT = 16 
STORE "AUTO THEFT" TO CRIME 
CASE COUNT = 17 
STORE "OTHER VEHICLE THEFT" TO CRIME 
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CASE COUNT - 18 
STORE "THEFT OF GOVT. VEHICLE" TO CRIME 
CASE COUNT - 19 
STORE "THEFT OF NON-GOVT. VEHICLE" TO CRIME 
CASE COUNT = 20 
STORE "NARCOTICS USE & POSSESSION" TO CRIME 
CASE COUNT = 21 
STORE "NARCOTICS SALE & TRAFFICKING" TO CRIME 
CASE COUNT = 22 
STORE "MARIJUANA USE & POSSESSION" TO CRIME 
CASE COUNT = 23 
STORE "MARIJUANA SALE & TRAFFICKING" TO CRIME 
CASE COUNT = 24 
STORE "DWI ON BASE" TO CRIME 
CASE COUNT = 25 
STORE "DWI OFF BASE" TO CRIME 
CASE COUNT = 26 
STORE "DUI ON BASE" TO CRIME 
CASE COUNT = 27 
STORE "DUI OFF BASE" TO CRIME 
ENDCASE 
STORE 00 TO TF1,TF2,TF3,TF4,TF5S,TF6,TF7,TF8,TF9,TF10,TF1 1 
STORE 00 TO TF12,TF13,TF14,TF15,TF16,TF17,TF18,TF19,TF20 
STORE 00 TO TF21,TF22,TF23,TF24,TF25,TF26,TF27,TF28 
4,20 CLEAR TO 4, 75 
4,20 SAY "CLASSIFICATION OF OFFENSE: &CRIME" 
6, 2 SAY "NUMBER OF OFFENSES ON BASE:" 
6,30 GET TFI picture '99' 
,37 SAY "OFF BASE:" 
47 GET TF2 picture '99' 
SAY "NUMBER OF UNFOUNDED FALSE REPORTS ON BASE:" 
5 GET TF3 picture '99' 
0 SAY "OFF BASE:" 
60 GET TF4 picture '99' 
2 SAY "NUMBER CLEARED BY ARREST:" 
28 GET TF35 picture '99' 
2 SAY "NUMBER INVESTIGATED BY NIS:" 
30 GET TF6 picture '99' 
,32 SAY "PERPETRATOR VICTIM" 
, 2 SAY "USMC:" 
, 2 SAY "OTHER SERVICES:" 
2 SAY "DEPENDANTS:" 
2 SAY "DOD CIVILIAN PERSONNEL:" 
2 SAY "MALES:" 
2 SAY "FEMALES:" 
2 SAY "CAUCASIAN:" 
2 SAY "NEGRO:" 
, 2 SAY "ALL OTHERS:" 
, 38 GET TF9 picture 99" 
, 38 GET TF10 picture 99" 
, 38 GET TF11 picture 99 
, 38 GET TF12 picture '99' 
, 38 GET TF 13 picture '99' 
, 38 GET TF14 picture '99' 
, 38 GET TF15 picture '99' 
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19, 38 GET TF16 picture 99" 

20, 38 GET TF17 picture '99' 

12, 54 GET TF18 picture '99' 

13, 54 GET TF19 picture '99' 

14, 54 GET TF20 picture 99 

15.54 GET TF21 picture 99 

16, 54 GET TF22 picture '99' 

17, 54 GET TF23 picture '99' 

18, 54 GET TF24 picture 99" 

19, 54 GET TF235 picture '99' 

20, 54 GET TF26 picture '99' 

21, 2 SAY "DRUG INVOLVEMENT:" 

(д 21, 38 СЕТ TF27 picture '99' 

B 22, 2 5ЗАҮ "АГСОНОГ ІМУОГУЕМЕМТ:" 

@ 22,38 GET TF28 picture '99' 

READ 

STORE "Y^ TO VERIFY 

@ 23,23 CLEAR TO 23,51 

?? CHR(7) : 

@ 23, 24 SAY "ARE ALL ENTRIES CORRECT ?" 

(023950 GET VERIFY PICTURE "'" 

READ 

I|ESVERIEM- "Y" 
STORE "Y" TO EXIT 
APPEND BLANK 
REPLACE F1 WITH TF1 
REPLACE F2 WITH TF2 
REPLACE F5 WITH TF3 
REPLACE F4 WITH TF4 
REPLAGESF5 WITH TF5 
REPLACE F6 WITH TF6 
REPLACE F9 WITH TF9 
REPLACE F10 WITH TF10 
REPLACE F11 WITH TF11 
REPLACE F12 WITH TF12 
REPLACE F13 WITH TF13 
REPLACE F14 WITH TF14 
REPLACE F15 WITH TF15 
REPLACE F16 WITH TF16 
REPLACE F17 WITH TF17 
REPLACE F18 WITH TF18 
REPLACE F19 WITH TF19 
REPLACE F20 WITH TF20 
REPLACE F21 WITH TF21 
REPLACE F22 WITH TF22 
REPLACE F23 WITH TF23 
REPLACE F24 WITH TF24 
REPLACE F25 WITH TF25 
REPLACE F26 WITH TF26 
REPLACE F27 WITH TF27 
REPLACE F28 WITH TF28 
REPLACE DATE WITH "&DATE" 
REPLACE CRIME WITH "&CRIME" 
@ 23, 24 CLEAR TO 23,51 

EISE 


@ @ @ (&) (&) (&) (&) (&) (&) (&) (&) (&) 
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STORE COUNT - 1 TO COUNT 
STORE "N" TO EXIT 

ENDIF 
ENDDO WHILE COUNT « 28 
CLEAR 
4,2 CLEAR TO 5, 78 
(0 0, 0 Т024,79 DOUBLE 
@ 5, 0 SAY CHR(204) 
(9 5,79 SAY CHR(185) 
@ 5, 1 TO 5, 78 DOUBLE 
@ 12,23 SAY "WOULD YOU LIKE TO UPDATE ANOTHER INSTALLATION ?" 
(9 13, 39 GET ANS PICTURE "Y" | 
IF ANS = "Y" 

STORE "Y" TO REPEAT 

CLOSE DATABASES 
ELSE 

CLOSE DATABASES 

RELEASE ALL EXCEPT USER* 
ENDIF 
ENDDO WHILE REPEAT = "Y" 
RETURN 
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